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I.   PROLOGUE 

A.   PROGRAMMING  LANGUAGES 

1 .  Conventional  Programming  Languages 

"Conventional  programming  languages  are  growing  ever 
more  enormous,  but  not  stronger.   Inherent  defects  at  the 
most  basic  level  cause  them  to  be  both  fat  and  weak:   their 
primitive  word-at-a-time  style  of  programming  inherited 
from  their  common  ancestor,  the  von  Neumann  computer,  their 
close  coupling  of  semantics  to  state  transitions,  their 
division  of  programming  into  a  world  of  expressions  and  a 
world  of  statements,  their  irability  to  effectively  use 
powerful  combining  forms  for  building  new  programs  from 
existing  ones,  and  their  lack  of  useful  mathematical  pro- 
perties for  reasoning  about  programs."    [Ref.  1] 

2 .  Software  Crisis  and  Ada 

It  is  virtually  a  cliche  to  say  there  is  a  software 
crisis.   This  crisis  in  software  production  is  far  greater 
than  the  situation  of  the  early  50' s  that  led  to  the  develop- 
ment of  high  level  languages  to  relieve  the  burden  of  coding. 
The  symptoms  appear  in  the  form  of  software  that  is  nonre- 
sponsive  to  user  needs,  unreliable,  excessively  expensive, 
untimely,  inflexible,  difficult  to  maintain,  and  not  reusable 
There  are  many  ways  to  improve  things  a  little  and  they  are 
being  tried.   But  to  achieve  a  fundamental  jump  in  our  pro- 
gramming capacity,  we  need  to  rethink  what  we  are  doing  from 
the  beginning. 

A  programming  language  shapes  the  way  we  think  about 
the  solutions  to  our  problems.   Ideally,  we  desire  a  language 
that  leads  us  to  systems  that  map  directly  to  the  problem 


space  and  that  helps  us  control  the  complexity  of  programming 

solutions.   Is  Ada  such  a  language  or  is  it  born  dead?   It 

is  time  to  listen  to  Hoare . 

"I  have  been  giving  the  best  of  my  advice  to  this  pro- 
ject since  1975.   At  first  I  was  extremely  hopeful.   The 
original  objectives  of  the  language  included  reliability, 
readability  of  programs,  formality  of  language  definition, 
and  even  simplicity.   Gradually  these  objectives  have  been 
sacrificed  in  favor  of  power,  supposedly  achieved  by  a 
plethora  of  features  and  notational  conventions,  many  of 
them,  like  exception  handling,  even  dangerous.   We  relive 
the  history  of  the  design  of  the  motor  car.   Gadgets  and 
glitter  prevail  over  fundamental  concerns  of  safety  and 
economy . 

And  so,  the  best  of  my  advice  to  the  originators  and 
designers  of  Ada  has  been  ignored.   I  appeal  to  you,  repre- 
sentatives of  the  programming  profession  in  the  United 
States,  and  citizens  concerned  with  the  welfare  and  safety 
of  your  own  country  and  of  mankind:   Do  not  allow  this 
language  in  its  present  state  to  be  used  in  applications 
where  reliability  is  critical,  i.e.,  nuclear  power  stations, 
cruise  missiles,  early  warning  systems,  anti-ballistic 
missile  defense  systems.   The  next  rocket  to  go  astray  as 
result  of  a  programming  language  error  may  not  be  an  ex- 
ploratory space  rocket  on  a  harmless  trip  to  Venus:   It 
may  be  a  nuclear  warhead  exploding  over  one  of  our  own 
cities."   [Ref.  2] 

B.   TOWARDS  A  SOLUTION:   FUNCTIONAL  PROGRAMMING 

Just  as  high  level  languages  enabled  the  programmer  to 
escape  from  the  intricacies  of  a  machine's  order  code,  higher 
level  programming  systems  can  provide  help  in  understanding 
and  manipulating  complex  systems  and  components .   We  need  to 
shift  our  attention  away  from  the  detailed  specification  of 
algorithms,  towards  the  description  of  the  properties  of  the 
packages  and  objects  with  which  we  build.   A  new  generation 
of  programming  tools  will  be  based  on  the  attitude  that  what 
we  say  in  a  programming  system  should  be  primarily  declarative, 
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not  imperative.   The  fundamental  use  of  a  programming  system 
is  not  in  creating  sequences  of  instructions  for  accomplish- 
ing tasks,  but  in  expressing  and  manipulating  descriptions 
of  computational  processes  and  the  objects  on  which  they  are 
carried  out. 

An  alternative  functional  style  of  programming  is  founded 
on  the  use  of  combining  forms  for  creating  programs .   Func- 
tional programs  deal  with  structured  data,  are  often  non- 
repetitive  and  nonrecursive,  are  hierarchically  constructed, 
do  not  name  their  arguments,  and  do  not  require  the  complex 
machinery  of  procedure  declarations  to  become  generally  applic- 
able.  Combining  forms  can  use  high  level  programs  to  build 
still  high  level  ones  in  a  style  not  possible  in  conventional 
languages.   [Ref.  1] 

"This  style  of  programming,  also  known  as  applicative 
programming  and  value-oriented  programming,  is  important 
for  a  number  of  reasons.   First,  functional  programming 
dispenses  with  the  ubiquitous  assignment  operation.   As 
structured  programming  is  often  called  'goto-less  programm- 
ing.', so  functional  programming  can  be  called  'assignment- 
less  programming.' 

The  second  reason  that  functional  programming  is  im- 
portant is  that  it  encourages  one  to  think  at  higher  levels 
of  abstraction.   This  is  because  functional  programming 
provides  a  mechanism  (functionals)  for  modifying  the  be- 
havior of  existing  programs  and  for  combining  existing 
programs . 

The  third  reason  for  the  functional  programming  is 
thcit  it  provides  a  paradigm  for  programming  large,  parallel 
computers.   As  we  begin  to  reach  speed  of  light  and  other 
limitations  on  computer  speed,  we  can  expect  to  see  com- 
puters that  achieve  higher  speed  by  greater  parallelism. 
Functional  programming ' s  absence  of  assignments,  independ- 
ence of  evaluation  order,  and  ability  to  operate  on  entire 
data  structures  provide  paradigms  for  programming  these 
machines . 


The  fourth  reason  is  its  applications  in  'Artificial 
Intelligence1  (AI)  .   Currently  most  AI  programming  is  done 
in  LISP,  a  language  which  inspired  much  of  the  early  work 
in  functional  programming.   PROLOG  is  the  newest  AI  pro- 
gramming language  and  has  a  central  role  in  the  Japanese 
Fifth  Generation  [FG]  Computer  Project,  PROLOG  is  a  func- 
tional programming  language  [See  Figure  1.1  for  a  sample 
Prolog  Program] .   Further,  since  AI  techniques  are  finding 
wider  and  wider  applications,  functional  programming  is 
important  to  more  than  just  AI  programmers':   it  is  impor- 
tant to  all  programmers. 

The  fifth  reason  that  functional  programming  is  impor- 
tant is  that  it  is  valuable  for  developing  executable 
specifications  and  prototype  implementations.   The  simple 
underlying  semantics  and  rigorous  mathematical  foundations 
of  functional  programming  along  with  its  high  expressive 
ability  make  functional  programming  an  ideal  vehicle  for 
specifying  the  intended  behavior  of  programs.   Functional 
programming  can  serve  this  function  even  if  no  functional 
programming  language  system  is  available  to  execute  the 
program.   However,  if  such  a  system  is  available  then  we 
have  something  very  valuable:   an  executable  specification. 
This  can  be  used  as  a  prototype  implementation  to  deter- 
mine if  the  specifications  are  correct,  and  as  a  benchmark 
against  which  later  implementations  can  be  compared.   Thus, 
even  if  the  reader  never  intends  to  write  do  functional 
programming,  it  can  still  be  a  valuable  tool  for  the  for- 
mulation, expression  and  evaluation  of  program  specifications 

Finally,  functional  programming  is  important  because  of 
its  connections  to  computer  science  theory.   Functional 
programming  provides  a  simpler  framework  for  viewing  many 
of  the  decidability  questions  of  programming  and  computers 
than  do  the  usual  approaches."   [Ref.  3] 


C.   THE  FIFTH  GENERATION  COMPUTER  PROJECT 

In  April  1982,  Japan  launched  a  research  project  to 
develop  computer  systems  for  the  1990' s.   The  project,  called 
the  Fifth  Generation  computers  project,  will  span  10  years. 
Its  ultimate  goal  is  to  develop  integrated  systems,  both 
hardware  and  software,  suitable  for  the  major  computer  appli- 
cation in  the  next  decade,  identified  by  the  Japanese  as 
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produce  (X,Y,Z,0)     :-   prodl  (X,Y,Z,  0,[     ])  . 

prodl  (ClistrSTM,Rslt,[Rname |PlanJ,Hist) 

: -recognize (Clist, STM fRname, Action) , 


:ontrol    test frRnamel Hist 
ict  (Action, STM, NewSTM)  , 
>rod1 (Clist/NewSTM/Rslt, 


control    test 
a 

prodl  (ClistfRsltVRsiCnl'Hist)^ 

recognize (Clist ,STM,Rname, Action) 

:-prod_rule (Class, Rname 
member (Class, Clist) , 
hold(Cond,STM)  . 


P Ian, [  Enamel  Hist  ])  I 


Cond  =>    Action) , 


hold  ([     ],STM). 

([crCL]fSTH) 


hold 


holdeach  (absent 
holdeach  (abse 


:-  holdeach (C,STM)  ,! ,hold (CL,STM)  . 


ent(X),nj  . 
ent (X) frFac 
:-  not(X  = 


holdeachfX  =  Y,STM)  :-  x 


holdeach 
holdeach 
holdeach 
holdeach 


ct|STM]) 
(X  =  Factj , holdeach (absent (X) ,STM) . 


found(X)  ,STM)     :-    holdeach  (X,  STM)  . 

X,[J)     :-   call(X)  . 

X,mSTM"!). 

X,tXlSTM])     :-    holdeach  (X, STM)  . 


act 
act 


[     .STM, STM). 
([  JJct  |  AL  ],STM,  New    STM) 

:-   acteach (Act. STM,  Int   STM),!, 

act(AL,Int    STM, New    STM). 


acteach  (delete(X)  ,[  l,f  1)  . 
acteach! delete   X)  ,[X|Yl,Y)  . 
act€ach(delete(X)  ,[Y  1 1  j.  [  Y  1 1 11) 

:-    acteacn (delete  (X) ,L, L1) . 


(rep"laceJX,Y)  ,  L,L1) 


acteach  (Else, STM, SIM)     :-    call (Else 


Figure    1.1        A  Simple  PRODUCTION   SYSTEM  Written   in   PROLOG 
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"knowledge  information  processing."   Even  though  it  may  ul- 
timately have  applicable  results,  the  current  focus  of  the 
project  is  basic  research  rather  than  the  development  of 
commercial  products.   [Ref.  4] 

In  addition  to  bringing  Japan  into  a  leading  position  in 
the  computer  industry,  the  project  is  expected  to  elevate 
Japan's  prestige  in  the  world.   It  will  refute  accusations 
that  Japan  is  only  exploiting  knowledge  imported  from  abroad 
without  contributing  any  of  its  own  to  benefit  the  rest  of 
the  world.   Hence,  the  project  aims  at  original  research  and 
plans  to  make  its  results  available  to  the  international  re- 
search community.   [Ref.  5] 

The  most  intriguing  aspect  of  the  project  is  its  commit- 
ment to  build  the  Fifth  Generation  systems  around  the  con- 
cepts of  logic  programming.   In  the  following  paragraphs  we 
trace  the  roots  and  rationale  for  this  commitment. 

There  are  many  attributes  that  prescribe  a  computer  sys- 
tem; however,  the  most  important  one  is  what  language  we  ac- 
cept as  the  main  programming  language.   For  application 
areas,  the  basic  structure  of  software  systems  and  the  frame 
of  computer  architecture  are  all  determined  by  this  language. 
So  in  this  project,  this  main  programming  language,  FG-Kernel 
Language,  seems  to  be  the  most  important  research  theme.   The 
research  and  development  of  this  language  must  be  carefully 
pursued  on  the  basis  of  systematic  studies  on  various  aspects 
such  as  artificial  intelligence  (problem  solving  and  knowledge 
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representation) ,  software  engineering,  examination  of  various 
programming  language  proposed,  etc.   The  reasons  why  a  logic 
programming  language  (PROLOG)  is  chosen  as  the  kernel  of  FG- 
Kernel  language  are  summarized  below. 

It  is  appropriate  for  programming  of  knowledge  informa- 
tion processing  system.   List  processing,  database  mechanism 
similar  to  relational  database,  pattern  matching  (unification) 
which  clearly  represents  the  composition  and  decomposition  of 
data  structure  and  database  research,  non-deterministic  pro- 
cessing, etc.  are  indispensable  processing  functions  in  pro- 
gramming of  knowledge  information  processing  systems.   PROLOG 
has  all  basic  parts  of  these  functions,  and  moreover,  is  able 
to  be  extended  to  get  more  high  performance  functions . 

It  gives  new  paradigms  of  programming.   A  non-procedural 
representation  scheme,  high  modularity,  a  happy  blending  of 
computation  and  database  search  etc.  are  new  programming 
paradigms.   These  paradigms,  what  is  better  still,  make  it 
much  easier  to  deal  with  programs  and  programming  as  formal 
objects  and  give  great  possibilities  to  realize  a  program 
verifier  and  an  automatic  programming  system. 

It  succeeds  to  the  results  of  efforts  made  by  current 
programming  languages.  Much  has  been  discussed  about  the 
relationship  between  logic  programming  languages  and  func- 
tional languages,  and  it  has  become  generally  appreciated 
that  these  languages  will  play  the  leading  part  in  future 
programming.  To  be  concrete,  also  as  to  Lisp,  the  function- 
al language  that  is  most  widely  put  into  practical  use  at 
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present,  it  is  possible  to  extend  PROLOG  efficiently  to  in- 
clude useful  functions  of  Lisp  as  a  subset.   PROLOG  can  put 
a  search  mechanism  with  backtracking  control  into  practical 
use  by  using  logical  formulas  (Horn  clauses)  as  language  con- 
structs and  by  improving  implementation  techniques . 

It  introduces  new  computer  architectures.   FG-Kernel 
Language  will  be  first  implemented  on  an  conventional  large 
scale  computer  and  then  on  a  high  performance  personal  com- 
puter.  According  to  the  research  plan  of  the  Fifth  Generation 
Computers,  the  language  will  be  improved  and  extended  step  by 
step,  based  on  actual  experience  and  various  research  results. 
And  finally,  the  language  will  become  a  machine  language  for 
the  target  machine  of  this  project.   Consequently,  the  lan- 
guage (Edinburgh  version)  must  be  such  a  language  as  funda- 
mentally has  all  of  the  appropriate  mechanisms  for  data  flow 
machines  and  data  base  machine  architectures  supposed  as 
basic  architectures  of  the  target  machine.   PROLOG  has  a 
great  possibility  for  this,  too. 

For  the  above  reasons,  PROLOG  has  been  chosen  as  the  ker- 
nel of  Kernel  Language.   Next,  the  main  features  of  improve- 
ment and  extension  of  PROLOG  now  under  study  are  enumerated. 
We  give  priority  to  the  arrangment  of  all  primitive  and  nec- 
essary functions  over  invention  of  high  level  ones . 

1.   Abstract  Data  Types  (Encapsulation) 

The  usefulness  of  abstract  data  types  has  been  well 
known  and  recently  most  new  programming  languages  have  adopted 
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it  as  the  basic  function.   But  the  current  version  of  PROLOG 
doesn't  have  this  construct  explicitly.   So,  we  have  to  in- 
troduce it  in  natural  way.   To  introduce  every  function  of 
the  abstract  data  type  and  to  make  clear  its  function  for 
program  specification  and  program  verification  remain  as  a 
long  term  research  theme. 

It  is  desired  that  this  extension  is  made  by  natural 
enlargement  of  functions  which  PROLOG  has  now.   PROLOG  has 
one  internal  database.   In  this  database,  all  clauses  (unit 
and  non-unit)  are  stored.   There  are  predicates  which  assert 
and  retract  these  clauses,  and  the  way  to  cause  side-effects 
is  to  alter  the  contents  of  the  database  with  these  predi- 
cates.  This  situation  can  be  interpreted  as  follows:   there 
is  only  one  abstract  data  type  called  internal  database. 
Consequently,  to  make  it  possible  to  define  a  number  of  ab- 
stract data  types  is  to  make  it  possible  to  create  a  number 
of  databases,  which  can  be  called  Micro  databases.   Various 
advantages  are  obtained  by  the  introduction  of  Micro  data- 
bases.  For  instance, 

(a)  Side-effects  are  localized. 

(b)  Structures  are  introduced  into  programs.   If  a  nested 
structure  is  permitted  among  databases,  more  compli- 
cated program  structures  can  be  represented. 

(c)  Separate  compilation  becomes  available.   Clauses  which 
are  not  exported,  are  never  accessed  from  the  outside. 
So,  it  is  possible  to  compile  calling  sequences 
(unification)  to  these  clauses. 
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2 .   Refined  Higher-order  Extensions 

PROLOG  is  a  simple  and  powerful  language  based  on 
first-order  logic.   For  practical  use,  however,  various  high- 
er-order extensions  have  to  be  introduced.   What  is  essential 
is  still  open  to  discussion.   For  example,  it  is  said  that 
higher-order  extensions  like  lambda  expressions  and  predicate 
variables  are  not  very  essential  and  first-order  logic  has 
enough  ability.   In  Lisp,  for  example,  the  most  primitive 
mechanism  for  higher-order  programming  is  that  program  and 
data  have  the  same  structure,  and  that  quote  and  eval  func- 
tions are  provided,  which  control  whether  some  data  structures 
are  regarded  as  program  or  data.   This  mechanism  is  introduced 
to  PROLOG  too  as  a  primitive  one.   The  basic  data  structure 
of  Lisp  is  the  list  (s-expression) .   To  PROLOG,  the  tuple  is 
regarded  as  a  basic  one.   Each  term,  predicate  and  Horn  clause 
is  able  to  be  internally  represented  as  a  tuple.   At  the  head 
of  each  tuple,  the  tuple  name  is  placed  and  the  attribute  of 
this  name  indicates  what  the  tuple  represents.   And  then,  for 
composition  and  decomposition  of  tuples,  unification  is  ex- 
tended and  some . predicates  are  introduced. 

The  most  fundamental  construct  for  the  control  struc- 
ture of  PROLOG  is  the  cut  operation.   This  operation  is  very 
powerful,  but  its  effect  is  very  hard  to  understand.   So,  it 
is  compared  to  the  goto  statement  in  a  conventional  language. 
It  is  possible  to  introduce  more  structured  constructs  for 
control  and  banish  the  cut  operation,  as  we  did  the  goto 
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statement.   For  example,  the  introduction  of  a  selection  mode 
for  clauses  is  possible. 

3 .  Enough  Preparation  of  Programming  Tools 
Evaluation  with  backtracking  makes  debugging  very 

difficult.   This  means  it  is  necessary  to  prepare  more  power- 
ful tools.   These  include:   (1)  Debugger,  which  traps  evalua- 
tion by  error  or  break,  keeps  the  environment  as  it  is  and 
responds  to  various  users'  commands,  (2)  Tracer,  which  traces 
the  history  of  evaluation  of  specified  predicates  and  varia- 
bles and  displays  it  in  pretty  format,  (3)  Stepper,  which 
evaluates  program  steps  one  by  one  and  displays  various  states 
by  the  minute,  (4)  Editor,  which  edits  clauses  with  pattern 
matching,  etc.   These  tools  are  combined  into  one  total  pro- 
gramming system  in  order  to  be  invoked  at  any  place. 

4 .  High  Level  Data  Structure 

It  is  pointed  out  that  data  structures  such  as  sets 
and  bags  which  collect  elements  to  satisfy  certain  conditions, 
represented  by  predicates,  are  improtant.   For  this,  the  most 
primitive  higher-order  predicate  is  provided  to  PROLOG  as 
well  . 

5 .  Useful  Functions  for  System  Description 
Interpreters,  compilers,  file  systems,  tools  for  de- 
bugging, etc.,  a  lot  of  system  programs  have  to  be  developed. 
The  Kernel  part  of  them  can  be  implemented  by  micro  programs . 
The  rest  are  desirable  to  be  implemented  by  PROLOG  itself. 
For  this  purpose,  it  is  possible  to  introduce  efficient  sys- 
tem description  functions  into  it.   For  example,  they  are: 
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Abstract  data  types  with  good  efficiency.   A  compiler  is 
able  to  transform  the  Micro  database  introduced  in  (1)  into 
very  efficient  object  codes  under  a  certain  restriction. 
For  example,  it  transforms  a  clause  in  Micro  database  into 
such  codes  as  fetch  and  store  terms  directly  in  a  predicate 
which  represents  its  internal  states. 

Refined  system  data  structures.   Data  structures  which 
represent  the  internal  state  of  the  system  are  refined. 
Basic  predicates  which  access  and  manipulate  them  and 
basic  protection  mechanism  are  both  provided. 

Constructs  for  parallel  processing.  Necessary  parallel 
processing  constructs  for  programs  controlling  external 
devices  are  introduced  as  simply  as  possible. 

Compared  with  an  ordinary  system  description  language, 
PROLOG  has  far  higher  level  functions,  therefore,  it  is 
apt  to  be  thought  that  it  is  not  appropriate  for  system 
description.   But,  under  natural  restrictions  and  degen- 
eration of  functions,  it  is  able  to  guarantee  the  same 
efficiency  as  an  ordinary  system  description  language 
does.   Examples  of  these  restrictions  are:   There  is  no 
non-deterministic  selection.   Unification  is  restricted. 
A  term  is  a  variable  or  a  constant.   Furthermore,  it  is 
restricted  to  the  parameter  binding  of  an  ordinary  func- 
tional language. 

6 .   The  Others 

Besides  the  above,  the  following  functions  have  to  be 
researched.   They  are:   Large  scale  databases,  connection  with 
external  databases  (relational  databases) ,  other  search  modes 
different  from  top-down  and  depth-first  search,  and  the  im- 
provement of  backtracking  search  mechanism. 
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II.   EXPRESSION  OF  RELATIONAL  DATABASE  QUERIES  IN  LOGIC 

A.  RELATIONAL  DATABASES 

Development  of  data  base  systems  was  one  of  the  core  ele- 
ments during  the  progress  in  the  70 's  of  computer  technology. 
How  to  organize  and  how  to  utilize  gigantic  volumes  of  data 
were  the  questions.   The  progress  was  made  by  accumulating 
experience.   Along  with  it,  efforts  to  organize  such  exper- 
ience theoretically  also  went  on. 

Codd ' s  proposal  for  relational  databases  was  made  early 
in  the  70 's,  but  is  only  now  about  to  become  a  major  stream 
in  structuring  data  bases.   This  is  based  on  a  theory  of 
"relations".   As  query  languages  for  the  data  bases  predicate 
formulas  (relational  calculus)  and  functional  formulas  (re- 
lational algebra)  are  proposed.   These  are  mutually  inter- 
changeable.  They  can  be  regarded  as  certain  kinds  of  special 
logics,  and  through  the  70 's  a  great  deal  of  theoretical  re- 
search effort  was  made  in  this  area. 

B.  QUERIES  AND  LOGIC 

Relational  database  retrieval  is  viewed  as  a  special  case 
of  deduction  in  logic.   It  is  argued  that  expressing  a  query 
in  logic  clarifies  the  problems  involved  in  processing  it 
efficiently  (query  optimization) .   We  want  to  describe  a  sim- 
ple way  for  defining  a  query  so  that  it  can  be  executed  by 
the  elementary  deductive  mechanism  provided  in  the  programm- 
ing language  PROLOG. 

19 


Several  current  relational  database  formalisms  have  a 
core  which  can  be  viewed  as  no  more  than  a  syntactic  variant 
of  a  certain  subset  of  logic.   To  illustrate  this,  let  us 
consider  an  example  written  in  Quel. 

range  of  E,M  is  employee 
range  of  D  is  dept 
retrieve  (E.name) 
where  E. salary  >  M. salary 
and  E. manager  =  M.name 
and  E.dept  =  D.dept 
and  D. floor  =  1 
and  E.age  >  40 
In  ordinary  English,  this  query  means:   "Which  employees 
aged  over  40  on  the  first  floor  earn  more  than  their  manag- 
ers?"  This  query  refers  to  relations: 

employee (name, dept, salary , manager , age) 
dept (dept, floor) 
This  query  can  be  expressed  in  logic  (using  Prolog  oriented 
syntax)  as: 

answer(E)  :-  employee (E , D, S ,M, A) , 
A  >  40, 
dept(D,l) , 

employee (M,_, SI, _,_)  , 
S  >  SI. 
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Read  this  as: 

E  is  an  answer  if 

E  is  an  employee,  dept  D,  salary  S,  manager  M,  age  A, 
and 

A  is  greater  than  40  and 

D  is  a  department  on  floor  1  and 

M  is  an  employee,  salary  SI,  and 

S  is  greater  than  SI. 

Here  the  identifiers  starting  with  a  capital  letter,  such 
as  E,  D,  S,  etc.,  are  logic  variables,  which  can  be  thought 
of  as  standing  for  arbitrary  objects  of  the  domain.   Contrast 
this  with  the  variables  of  Quel,  which  denote  arbitrary  tu- 
ples of  a  certain  relation  specified  in  a  range  statement. 
(Because,  in  this  example,  tuples  can  be  uniquely  identified 
by  their  first  fields,  it  is  natural  for  the  logic  variable 
corresponding  to  this  field  to  have  the  same  name  identifier 
as  is  used  for  the  tuple  variable  in  the  Quel  version) .   For 
each  tuple  variable  in  a  Quel  query,  there  is,  in  the  logic 
version,  a  corresponding  goal  (also  called  "atomic  formula"), 
e.g.  , 

dept(D,l) 
A  goal  consists  of  a  predicate,  naming  the  range  relation  of 
the  corresponding  tuple  variable,  applied  to  some  arguments, 
corresponding  to  the  fields  of  this  relation.   Quel  con- 
straints which  are  identities  map  into  an  appropriate  choice 
of  variables  or  constants  (such  as  *  1')  for  certain  goal 
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arguments.   This  aspect  tends  to  make  the  logic  form  of  the 
query  more  concise  and,  it  can  be  argued,  easier  to  compre- 
hend.  Note  the  use  of  '_'  to  denote  an  "anonymous"  variable, 
which  is  only  referred  to  once,  and  which  therefore  does  not 
need  to  be  given  a  distinct  name.   Quel  constraints  which  are 
inequalities  map  into  separate  logic  goals.   The  Quel  query 
as  a  whole  maps  into  a  restricted  kind  of  implication,  called 
a  clause,  where  the  target  of  the  query  appears  as  the  con- 
clusion of  the  implication  (to  the  left  of  the  ':-'). 

Clauses  can  be  used  not  only  to  represent  queries ,  but 
also  to  express  the  information  which  makes  up  the  database 
itself.   (It  is  this  aspect  which  distinguishes  what  will  be 
described  here  from  much  other  work  relating  logic  and 
databases) . 

In  general  a  clause  consists  of  an  implication,  which  in 
the  Prolog  subset  of  logic  is  restricted  to  the  form: 

P  :-  Ql,  Q2,  ...  Qn. 
meaning  "P  is  true  if  Ql  and  Q2  and  . . .  Qn  are  true",  where 
P  and  the  Qi  may  be  any  goals.   If  n  =  o,  we  have  what  is 
called  a  unit  clause,  which  is  written  simply  as: 

P. 
meaning  "P  is  true". 

For  example,  here  are  some  unit  clauses,  representing 
elementary  facts,  which  serve  to  define  which  tuples  make  up 
relation  'parent'. 
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parent Cdavid,hugh) . 

parent (dayid,winif red) . 

parent (ben, david)  . 

parent  (.ben,  jane)  . 
The  first  clause,  for  instance,  may  be  read  as: 

"David  has  a  parent  Hugh". 
Here  we  have  defined  a  database  relation  by  explicitly  enu- 
merating its  tuples.   However  it  is  also  possible  to  define 
a  relation  implicitly,  through  general  rules  expressed  as 
non-unit  clauses.   For  example,  here  is  the  definition  of  the 
'ancestor'  relation  in  terms  of  the  'parent'  relation: 

ancestor (X, Z)  :-  parent(X,Z). 

ancestor  (X, Z)  :-  parent (X,Y)  , ancestor (Y, Z)  . 
Read  these  clauses  as: 

"X  has  an  ancestor  Z  if  X  has  a  parent  Z". 

"X  has  an  ancestor  Z  if 

X  has  a  parent  Y  and  Y  has  an  ancestor  Z". 
Note  that  the  second  clause  makes  the  definition  recursive 
We  can  think  of  'ancestor'  as  a  "virtual"  relation.   A  pair 
<X,Y>  belongs  to  the  'ancestor'  relation  if: 

ancestor (X, Y) 
is  a  logical  consequence  of  the  clauses  which  make  up  the 
database.   Thus  one  can  infer,  for  example,  that  one  of  Ben's 
ancestors  is  Hugh,  i.e., 

ancestor (ben,hugh) 
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This  use  of  logic  clauses  to  define  a  database  gives  much 
greater  power  and  conciseness  than  is  available  in  most  con- 
ventional relational  database  systems.   These  systems  do  not 
allow  an  equivalent  recursive  definition  of  the  'ancestor' 
relation,  for  example. 

In  fact,  the  logic  subset  we  have  been  looking  at  forms 
the  basis  of  a  general  purpose  programming  language,  Prolog. 
A  Prolog  system  is  essentially  a  machine  which  can  generate 
solutions  to  a  problem  by  enumerating  all  instances  of  some 
goal  which  are  valid  inferences  from  the  clauses  which  make 
up  a  "program".   For  example,  if  the  user  presents  the  query: 

answer(X)  :-  ancestor (ben, X) . 
Prolog  responds  with  the  following  list  of  possible  values 
for  X,  representing  all  the  ancestors  of  Ben  that  can  be 
deduced : 

X  =  david;  X  =  jane;  X  =  hugh;  X  =  winifred 
The  solutions  are  in  fact  produced  in  exactly  this  order. 
How  this  takes  place  will  not  be  described. 

In  Prolog,  the  ordering  of  clauses  in  a  program,  and  the 
ordering  of  goals  in  the  right-hand  side  of  a  clause,  provide 
important  control  information,  which  helps  to  determine  the 
way  a  program  is  executed. 

To  execute  a  goal  (such  as  'ancestor (ben, X) '  in  the  pre- 
vious query) ,  Prolog  tries  to  match  it  against  the  left-hand 
side  of  some  clause,  by  finding  values  for  variables  which 
make  the  clause  "head"  identical  with  the  goal.   When 
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successful,  Prolog  then  recursively  executes  the  goals  Cif 
any)  in  the  right-hand  side  of  the  clause,  which  will  by  now 
have  been  modified  by  the  results  of  the  matching.   When  no 
match  can  be  found,  or  when  there  are  no  more  goals  left  to 
execute,  Prolog  backtracks.   That  is  it  goes  back  to  the  goal 
most  recently  matched,  undoes  the  effects  of  the  match,  and 
then  seeks  an  alternative  match. 

Clauses  are  tried  for  a  match  in  the  order  they  appear 
in  the  program.   Goals  in  the  right-hand  side  of  a  clause  are 
executed  in  the  order  they  appear  in  that  clause.   The  match- 
ing process  is  actually  unification,  a  process  which  effect- 
ively produces  the  least  possible  instantiation  of  variables 
necessary  to  make  the  two  goals  identical. 

Prolog's  backtracking  can  be  thought  of  as  a  generalized 
form  of  iteration.   Thus  the  two  clauses  for  'ancestor',  when 
used  to  satisfy  a  goal  such  as  'ancestor (ben ,X) ',  give  a  be- 
haviour when  executed  by  the  Prolog  equivalent  to  the  follow- 
ing procedure : 

To  generate  Zs  who  are  ancestors  of  X: 

first  generate  Zs  who  are  parents  of  X; 
then  for  each  Y  who  is  a  parent  of  X: 
generate  Zs  who  are  ancestors  of  Y. 
In  fact,  some  compilers  can  compile  such  clauses  into  code 
which  is  comparable  in  efficiency  with  iterative  loops  in  a 
more  conventional  language. 
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As  a  final  remark,  one  should  note  that  the  Prolog  subset 
of  logic  includes,  besides  the  variables  and  elementary  con- 
stants seen  so  far,  objects  which  are  structures.   In  this 
respect,  while  being  similar  to  many  other  programming  lan- 
guages, it  is  a  further  important  generalization  of  most  re- 
lational database  formalisms . 

In  fact,  Prolog  was  not  designed  with  relational  database 
retrieval  in  mind,  it  was  conceived  purely  as  a  programming 
language.   The  efficiency  of  processing  of  Prolog  queries 
may  be  discussed.   The  Prolog-based  approach  of  Chat-80  com- 
pares with  the  strategies  used  in  conventional  relational 
database  systems.   iRef.  6] 
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III.   TRANSLATION  OF  A  SUBSET  OF  PROLOG  INTO  PASCAL 

A.   PASCAL  AS  AN  IMPLEMENTOR  LANGUAGE 

Pascal  is  chosen  as  an  object  language  for  this  applica- 
tion, because  it  does  have  some  excellent  features.   .[Ref.  7  J 
Here  is  a  list  of  positive  aspects: 

1)  small  number  of  well-chosen  keywords, 

2)  small  number  of  syntax  and  semantics  rules, 

3)  meaning  of  Pascal  instructions  is  highly  independent 
of  environment,  which  promotes  portability  of  programs, 

4)  excellent  data  structuring  methods, 

5)  clean  and  efficient  control  structuring, 

6)  excellent  for  programming  "in  the  small", 

7)  gives  a  feeling  of  reliability, 

8)  with  some  care,  readability  can  be  kept  high. 

Pascal  is  definitely  very  useful  in  the  following  areas  : 

1)  compiler  writing,  cross  assemblers  and  compilers, 

2)  text  processing, 

3)  general,  off-line  utility  programs  (editors,  etc.), 

4)  treatment  of  non-numerical  data, 

5)  processing  of  trees,  lists  and  other  complex  data 
structures , 

6)  some  mathematical  problems, 

7)  construction  of  portable  programs. 

We  do  not  want  to  deal  with  the  existing  problems  in  that 
language.   This  is  beyond  the  scope  of  this  thesis. 
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B.   PROLOG  AND  BACKTRACKING 

Prolog  is  a  simple  but  powerful  programming  language 
founded  on  symbolic  logic.   The  basic  computational  mechanism 
is  a  pattern  matching  process  ("unification")  operating  on 
general  record  structures  ("terms"  of  logic).   It  can  be  ar- 
gued that  pattern  matching  is  a  better  method  for  expressing 
operations  on  structured  data  than  conventional  selectors  and 
constructors — both  for  the  user  and  for  the  implementor . 
From  a  user's  view  the  major  attraction  of  the  language  is 
ease  of  programming.   Clear,  readable,  concise  programs  can 
be  written  quickly  with  a  few  errors . 

Prolog  has  many  parallels  with  Lisp.   Both  are  interac- 
tive languages  designed  primarily  for  symbolic  data  process- 
ing.  Both  are  founded  on  formal  mathematical  systems — Lisp 
on  Church's  lambda  calculus,  prolog  on  a  subset  of  classical 
logic.   Like  pure  Lisp,  the  Prolog  language  does  not  (ex- 
plicitly) incorporate  the  machine-oriented  concepts  of  assign- 
ment and  references  (pointers).   Furthermore,  pure  Lisp  can 
be  viewed  as  a  specialization  of  Prolog,  where  procedures 
are  restricted  to  simple  functions  and  data  structures  are 
restricted  to  lists. 

Prolog  differs  from  most  programming  languages  in  that 
there  are  two  quite  distinct  ways  to  understand  its  semantics. 
The  procedural  semantics  is  the  more  conventional,  and  de- 
scribes in  the  usual  way  the  sequence  of  states  passed 
through  when  executing  a  program.   In  addition  a  Prolog 
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program  can  be  understood  as  a  set  of  descriptive  statements 
about  a  problem. 

The  declarative  semantics  which  Prolog  inherits  from 
logic  provides  a  formal  basis  for  such  a  reading.   It  simply 
defines  (recursively)  the  set  of  terms  that  are  asserted  to 
be  true  according  to  a  program.   A  terra  is  true  if  it  is 
head  of  some  clause  instance  and  each  of  the  goals  (if  any) 
of  that  clause  instance  is  true,  where  an  instance  of  a 
clause  (or  term)  is  obtained  by  substituting,  for  each  of 
zero  or  more  variables,  a  new  term  for  all  occurrences  of  the 
variable . 

The  procedural  semantics  describes  the  way  a  goal  is 
executed.   The  object  of  the  execution  is  to  produce  true  in- 
stances of  the  goal.   It  is  important  to  notice  that  the  or- 
dering of  clauses  in  a  program,  and  goals  in  a  clause,  which 
are  irrelevant  as  far  as  the  declarative  semantics  is  con- 
cerned, constitute  crucial  control  information  for  the  pro- 
cedural semantics. 

To  execute  a  goal,  the  system  searches  for  the  first 
clause  whose  head  matches  or  unifies  with  the  goal.   The  uni- 
fication process  finds  the  most  general  common  instance  of 
two  terms,  which  is  unique  if  it  exists.   If  a  match  is  found, 
the  matching  clause  instance  is  then  activated  by  executing 
in  turn,  from  left  to  right,  each  of  the  goals  of  its  body 
(if  any) .   If  at  any  time  the  system  fails  to  find  a  match 
for  a  goal,  it  backtracks,  i.e.,  it  rejects  the  most  recently 
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activated  clause,  undoing  any  substitutions  made  by  the  match 
with  the  head  of  the  clause.   Next  it  reconsiders  the  origin- 
al goal  which  activated  the  rejected  clause,  and  tries  to 
find  a  subsequent  clause  which  also  matches  the  goal. 

Prolog  owes  it  simplicity  firstly  to  a  generalization  of 
certain  aspects  of  other  programming  languages,  and  secondly 
to  omission  of  many  other  features  which  are  no  longer  strict- 
ly essential.   This  generalization  gives  Prolog  a  number  of 
novel  properties.   We  shall  briefly  summarize  them. 

1)  General  records  structures  take  the  place  of  Lisp's 
S-expressions .   An  unlimited  number  of  different 
record  types  may  be  used.   Records  with  any  number 
of  fields  are  possible,  giving  the  equivalent  of 
fixed  bound  arrays.   There  are  no  type  restrictions 
on  the  fields  of  a  record. 

2)  Pattern  matching  replaces  the  use  of  selector  and 
constructor  functions  for  operating  on  structured 
data . 

3)  Procedures  may  have  multiple  outputs  as  well  as 
multiple  inputs . 

4)  The  input  and  output  arguments  of  a  procedure  do  not 
have  to  be  distinguished  in  advance,  but  may  vary 
from  one  call  to  another.   Procedures  can  be  multi- 
purpose . 

5)  Procedures  may  generate,  through  backtracking,  a 
sequence  of  alternative  results.   This  amounts  to 
a  high  level  of  iteration. 

6)  Unification  includes  certain  features  which  are  not 
found  in  the  simpler  pattern  matching  provided  by 
some  languages.   One  can  sum  this  up  in  the  equation: 
Unification  =  pattern  matching  +  the  logical  variable. 

8)   The  characteristics  of  the  "logical"  variable  are  as 
follows.   An  "incomplete"  data  structure  (i.e.,  con- 
taining free  variables)  may  be  returned  as  a  pro- 
cedure's output.   The  free  variables  can  later  be 
filled  in  by  other  procedures,  giving  the  effect  of 
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implicit  assignments  to  a  data  structure.   Where  necessary, 
free  variables  are  automatically  linked  together  by 
"invisible"  references.   As  a  result,  values  may  have 
to  be  "dereferenced".   This  is  also  performed  by  the 
system.   Thus  the  programmer  need  not  be  concerned  with 
the  exact  status  of  a  variable — assigned  or  unassigned, 
bound  to  a  reference  or  not.   In  particular,  the  oc- 
currences of  a  variable  in  a  pattern  do  not  need  any 
prefixes  to  indicate  the  status  of  the  variable  at  that 
point  in  the  pattern  matching  process.   In  short,  the 
logical  variable  incorporates  much  of  the  power  of 
assignment  and  references  in  other  languages .   This  is 
reminiscent  of  the  way  most  uses  of  goto  can  be  ob- 
viated in  a  language  with  well  structured  control 
primitives . 

9)   Program  and  data  are  identical  in  form.   Clauses  can 
usefully  be  employed  for  expressing  data. 

10)  There  is  a  natural  declarative  semantics  in  addition 
to  the  usual  procedural  semantics . 

11)  The  procedural  semantics  of  syntactically  correct  pro- 
gram is  totally  defined.   It  is  impossible  for  an  error 
condition  to  arise  or  for  an  undefined  operation  to  be 
performed.   This  is  a  contrast  to  most  programming  lan- 
guages.  A  totally  defined  semantics  ensures  that  pro- 
gramming errors  do  not  result  in  bizarre  program 
behaviour  or  incomprehensible  error  messages . 


C.   A  SUBSET  OF  PROLOG  (SPROLOG) 

For  the  purpose  of  this  work:   we  select  a  small  subset  of 
Prolog  and  we  will  call  it  Small  Prolog  (SPROLOG) .   This  sub- 
set only  includes  some  primitive  data  structures,  such  as 
atoms  and  integer  numbers.   The  formal  definition  of  this  lan- 
guage is  given  in  Figure  3.1. 

SPROLOG  also  has  some  restrictions.   These  are: 

1)  There  is  no  anonymous  (_)  variable.   This  restriction 
eliminates  the  possibility  of  violation  of  procedure 
naming  rule  in  Pascal, 

2)  Recursive  definition  is  not  allowed, 

3)  Only  nonnegative  integer  numbers  can  be  handled, 
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<sprolog> 

<rule  or  fact> 

<rule> 

<fact> 

<head> 

<body> 

<structure> 

<in£ix> 

<asg> 

<expression> 

<r€lational> 

<arithmetic> 
<arithmetic> 

<prefix> 
<pref ix> 

<procname> 
<procname> 

<variable  or  numb 
<variable  or  cons 
<variable> 
<variable> 

<cocstant> 

<atom> 

<atom> 

<numb€r> 

<l€tter  or  digit> 

<letter> 

<capital> 

<snall> 

<digit> 

<r€l  operator> 

<art  operator> 


<arithmetic> 
<ar it hmetic> 
<rel  operator> 


er 
ta 


<rule  or  fact>   Krule  or  fact>} 

<rule>  |  <fact> 

<head>  :-  <body>  . 

<head>  . 

<pref ix> 

<structure>   {  t    <structure>} 

<infix>  j  <prefix> 

<asg>  I  <expression> 

<variable>  is 

<relational> 

<arithmetic> 

<arithmetic> 

<variable  or 

<variable  or 

<variable   or 

<procname> 

<procname>  ( 

{  ,  <variable 
<small> 
<small>  <letter  or  digit> 

{<letter  or  digit>} 

>    : : =  <variable> 

nt>  ::=  <variable> 

<capital> 

<capital>  <letter  or  digit> 

[<letter  or  digit>} 
<number> 


number> 
number> 
number> 


<art  operator> 


<7ariable  or  constant> 
or  constant>}  ) 


<number> 
<constant> 


<atom>  J 
<small> 
<small> 
{<letter 
<digit> 
::=  <letter> 
<capital>  I 


<letter  or  digit> 
or  diuit>} 
{<digit>} 
|  <digit> 
<small> 
|G|  H|I  |  J|  Kj  L|  B 
X  YIZ 
k  1 1  m 
.xly|z 


Ul  V  J  w 

h  i  j 
a  v  f  w 
8J  9 


Figure  3.1    SPBOLOG  in  BNF  Form 
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4)  Any  variable  or  atom  may  have  at  most  ten  characters, 

5)  Any  program  must  have  only  one  query  clause  which  is 
defined  as  the  last  rule  of  the  program, 

6)  Any  predicate  name  placed  in  the  body  clause  must 
have  been  declared  before  as  a  head  clause  of  a  rule. 
This  eliminates  taking  into  consideration  the  "for- 
ward" declarations  inherited  in  Pascal, 

7)  Arithmetic  expressions  may  have  at  most  one  operator. 
These  restrictions  make  this  implementation  easy.   But, 

we  lose  the  beauty  of  the  problem. 

D.   DESIGN 

We  will  develop  our  work  by  using  the  following  example. 
Suppose  we  have  the  Prolog  program  illustrated  in  Figure  3.2 
Our  job  is  to  translate  it  to  a  Pascal  program.   We  consider 
that  all  head  clauses  of  Prolog  correspond  to  the  function 
declarations  in  Pascal.   That  is,  "pop",  "area",  "density", 
"ans"  and  "query"  are  all  names  of  the  functions  which  will 
be  called  by  the  calls  that  are  placed  in  the  body  clauses 
anywhere  inside  the  program.   The  type  of  these  functions  is 
always  boolean.   If  the  body  clause  does  not  exist,  this 
means  that  this  function  will  not  call  any  other  functions  . 


pop  (china, 825) . 

pop (india, 586  . 

area  (china,  3380)  - 

area  (india,  1 1  39)  . 

density  (C,D): -pop  (C,  P)  ,  area  (C. A)  ,  D  is  P/A. 

ans  (01,01,02,02)  ; -density  (CT,  D1  ,  density  (C 2, D  2)  , 

D1>D2,20*D1<21*D2. 
guery:-ans  (X,I,Z,T).  • 


Figure    3-2        Sample   PROLOG   Program 
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The  transfer  of  parameters  defined  in  the  Prolog  program 
will  cause  a  little  problem,  because  Prolog  does  not  force 
the  programmer  to  declare  them  with  the  same  number  and  the 
same  type.   For  example,  "density"  might  be  declared  with 
many  number  of  parameters  in  various  places  in  the  program. 
This  leads  us  to  use  pointer  variables  that  point  to  the  for- 
mal and  actual  parameters  which  are  stored  in  the  storage 
area.   This  idea  facilitates  parameter  passing  among  functions 
without  using  variant  record  declarations  and  also  prevents 
the  probable  translation  errors  which  may  result  from  some 
features  of  Pascal,  such  as  "strong  typing"  or  "type 
checking" . 

We  need  also  to  inform  the  callee  about  the  caller's 
name  for  the  following  reasons.   As  shown  in  the  sample  pro- 
gram in  Figure  3.2,  the  same  name  may  refer  to  several  call- 
ees  which  may  have  different  numbers  and  types  of  parameters. 
This  information  will  provide  a  basis  for  the  matching  and 
binding  processes.   So,  to  implement  this  idea,  we  will  enum- 
erate the  names  of  functions  and  their  parameters  in  the 
following  simple  way. 

In  Prolog  source  code,  enumerate  all  names  from  top  to 
bottom  and  from  left  to  right.   In  the  same  way,  give  also  a 
sequence  number  to  all  parameters.   So,  in  the  above  example, 
"pop"  will  have  number  1  and  the  last  name  "ans"  will  be 
numbered  as  15.   Also,  the  actual  parameter  of  the  first  "pop" 
clause,  which  is  "china",  will  be  the  first  parameter  of  this 
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program  and  the  formal  parameter  "T"  of  the  "ans"  will  get 
number  38.   Notice  that  "is",  ">"  and  "<"  in  the  program  are 
not  user  defined  functions.   These  are  predefined  and  we  will 
use  them  from  the  library. 

We  already  have  some  problems.   There  exists  more  than 
one  alternative  clause  for  the  names  "pop"  and  "area".   It 
is  impossible  to  declare  two  functions  with  the  same  name  in 
Pascal.   To  solve  it,  we  rename  the  first  "pop"  as  "popl"  and 
the  second  one  as  "pop2".   Also,  we  need  to  define  another 
function  whose  name  is  "pop"  which  will  drive  all  the  alter- 
natives according  to  a  logical  sequence.   This  process  will 
be  applied  to  all  functions  which  have  alternative  clauses . 
We  continue  our  example  in  the  following  tables  . 

The  first  table  ("Procedure  Table")  includes  some  infor- 
mation about  the  functions  (see  Figure  3.3).   The  leftmost 
column  is  the  function  number.   This  number  will  be  used 
during  the  execution  phase,  when  needed,  to  identify  any  func- 
tion.  The  second  column  shows  the  name  of  tne  functions. 


seq.  function  parameter 

iNc.  Name  _£2^^^?£5_ 

4  POP  ]  2 

2  pop  3  4 

3  area  5  6 

4  area  7  8 

5  density  9  10 

6  pop  11  12 
1  area  13  14 

8  is  15  18 

9  ans  19  22 

10  density  23  24 

11  density  25  26 

12  >  27  28 

13  <  29  34 

14  gaery  0    0 

15  ans.  35  38 


alternative 

pointers 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

2 

3 

4 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Figure  3.3   Procedure  Table 
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But,  ">"  or  "<"  can  not  be  legal  Pascal  function  names. 
Later,  we  can  change  them  to  "greater",  "lessthan",  etc. 
The  third  and  fourth  columns  are  all  pointers.   They  point 
to  the  "Parameter  Table"  (.see  Figure  3.4)  for  the  associated 
parameters  of  that  function.   Because  the  function  "query" 
does  not  have  any  parameters,  its  parameter  pointers  do  not 
point  to  anything.   On  the  other  hand,  the  last  column  shows 
the  alternative  clauses  of  that  function.   For  example,  the 
functions  "pop"  and  "area"  have  two  non-zero  alternative 
pointers.   In  other  words,  this  means  that  these  functions 
have  two  alternatives. 

The  information  about  parameters  is  shown  in  the  Para- 
meter Table  (see  Figure  3.4).   The  parameter  type  represents 
the  type  of  the  parameter.   Variables,  integers  and  atoms 
will  have  the  numbers  1,  2  and  3,  respectively.   However, 
other  numbers  which  are  greater  than  3,  indicate  the  exist- 
ence of  arithmetic  expressions.   The  fourth  column  of  the 
table  points  to  the  associated  function  for  those  parameters 

The  last  table  (see  Figure  3.5)  renames  the  alternative 
clauses.   If  we  have  several  functions  with  the  same  name, 
we  rename  then  and  then  we  will  be  able  to  use  them  with 
these  names.   In  fact,  these  three  tables  are  not  so  simple 
as  shown  in  the  figures.   The  reader  may  refer  to  the  sample 
programs  given  in  the  appendices . 
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■  - ■ 

seq. 

parameter 
Name 

parameter 

type 

pointer  to 

No. 

proc  table 

1 

china 

3 

1 

2 

825 

2 

1 

^ 

india 

3 

2 

4 

586 

2 

2 

c 

china 

3 

3 

6 

3380 

2 

3 

■7 

india 

3 

4 

8 

1139 

2 

4 

0 

C 

1 

5 

10 

D 

1 

5 

11 

C 

1 

6 

12 

P 

1 

6 

13 

c 

1 

7 

14 

A 

1 

7 

15 

D 

1 

8 

16 

P 

1 

8 

17 

/ 

10 

8 

18 

A 

1 

8 

19 

C1 

1 

9 

20 

D1 

1 

9 

21 

C2 

1 

9 

22 

D2 

1 

9 

23 

C1 

1 

10 

24 

D1 

1 

10 

25 

C2 

1 

11 

26 

D2 

1 

1  1 

27 

D1 

1 

12 

28 

D2 

1 

12 

29 

20 

2 

13 

30 

* 

9 

13 

31 

D1 

1 

13 

32 

21 

2 

13 

33 

* 

9 

13 

34 

D2 

1 

13 

35 

X 

1 

15 

36 

Y 

1 

15 

37 

Z 

1 

15 

38 

T 

1 

15 

Figure  3.4   Parameter  Table 
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seg.  function  pointers  to 

No-  Name  proc  table 

1  popl  1    2 

2  pop2  3    4 

3  area3  5   6 

4  areaU  7    8 


Figure  3,5   Alternative  Clauses  Table 

E.   MEMORY  MANAGEMENT  AND  PROBLEMS 

All  variables  and  constants  may  be  handled  by  using  the 
dynamic  storage  feature  of  Pascal.   It  seems  necessary  to 
describe  four  kinds  of  records  to  keep  a  parameter  in  a  heap 
area . 

The  first  record  ("Procedure  Record")  contains  enough 
information  about  the  rule  number,  function  number,  and  para- 
meter number.   Also,  its  last  item  points  to  the  "Parameter 
Specification  Record".   This  record  keeps  the  parameter  type, 
parameter  name,  if  any,  and  it  also  has  a  cell  pointer  which 
indicates  the  related  Cell.   A  Cell  is  itself  a  pointer  which 
points  to  the  "Value  Record".   This  record  saves  the  value  of 
that  parameter.   The  last  one  has  to  have  the  variant  record' 
specification  to  store  various  types  of  parameters.   If  a 
parameter  does  not  have  value,  namely  an  uninitialized  vari- 
able, the  Cell  pointer  will  not  show  any  "Value  Record". 

To  handle  arithmetic  expressions,  che  Cell  pointer  will 
point  to  the  associated  binary  tree  for  that  expression.   The 
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leaves  of  the  tree  are  also  pointers  that  point  to  the  re- 
lated "Parameter  Specification  Record".   Also,  the  same  idea 
can  be  applied  to  the  list  data  structures,  because  it  is 
possible  to  represent  the  list  as  a  binary  tree. 

The  variables  that  are  local  to  a  rule  will  share  the 
same  storage  area  via  the  "Specification  Pointer"  defined  in 
its  "Procedure  Record".   This  is  also  true  for  all  the  con- 
stants of  the  Program.   The  same  constants,  like  "china", 
will  be  stored  only  once.   The  associated  cell  pointers  will 
provide  the  way  for  the  common  storage. 

To  bind  a  value  to  a  variable,  the  Cell  pointer  of  this 
variable  will  point  to  a  "Value  Record"  which  is  determined 
at  the  time  of  matching  process.   This  process  will  create  a 
long  chain  during  the  execution  of  the  program.   Also,  the 
reverse  process  is  necessary  when  backtracking  and  resatis- 
fying  occurs.   At  this  point,  our  design  and,  finally,  this 
thesis  is  completely  unsuccessful.   Due  to  the  storage  manage- 
ment and  the  complexity  of  execution  phase,  we  restrict  again 
SPROLOG  so  that  our  implementation  will  only  be  able  to  exe- 
cute the  "facts"  and  one  rule  which  is  defined  at  the  end  of 
the  Prolog  program.   In  this  case,  this  implementation  will 
be  useful  to  define  and  implement  relational  databases  and 
query  applications.   (Our  implementation  allows  processing 
at  most  99  different  relations) . 

Now  we  are  ready  to  translate  the  sample  Prolog  program 
given  in  Figure  3.2  into  Pascal.   Function  "pop"  and  its  two 
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alternatives  are  shown  in  Figure  3.6.   Formal  parameters  "a" 
and  "i"  which,  are  defined  as  integers,  are  function  numbers. 
The  parameter  "a"  is  the  number  of  the  caller  as  described 
in  Figure  3.3.   The  other  parameter  "i"  corresponds  to  the 
callee's  number  which  is  driven  in  the  "pop"  function  by  the 
"case"  statement.   The  function  of  the  "case"  statement 
placed  in  "pop"  is  very  important.   All  alternatives  clauses 
will  be  tried  by  this  construction  until  the  "resatisf action" 
is  not  required  any  more  or  any  impossible  condition  occurs. 

The  "match"  function  included  in  "popl"  and  "pop2"  is 
the  library  function.   The  unification  and  binding  process 
will  be  made  by  this  function.   If  its  returned  value  is 
true,  this  means  that  the  "binding"  occurred  after  the 
"matching"  process. 

The  function  "area"  and  its  alternatives  "areal"  and 
"area2"  are  shown  in  Figure  3.7.   These  functions  have  been 
constructed  with  the  same  way  as  in  the  example  "pop". 

Before  describing  the  other  functions,  we  want  to  note 
the  importance  of  "accept"  function  shown  in  Figure  3.8. 
This  is  the  general  driver  for  all  functions.   It  accepts 
any  function  name  and  its  number  as  arguments  and  calls  all 
possible  alternative  functions.   For  example,  to  call  "popl" 
or  "pop2",  "accept"  creates  functions  numbers  which  will  be 
used  by  the  "case"  statement  of  the  "pop".   If  any  returned 
value  is  "true"  during  the  execution  of  "for"  loop,  "accept" 
will  also  return  a  "true"  value.   As  you  noticed,  the  first 
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function  popl  (a, i  :integer) itoolean; 
begin 

popl :=match (a ,i)  ; 
end; 

function  pop2  (a, i  :integer) : boolean; 
begin 

pop2:=match  (a,i)  ; 
end; 

function  pop (a, i: integer) : boolean; 
begin 

case  i  of 

1:pcp:  =  pop1  (a,i) ; 

2:pcp:  =  pop2  (a  ,ij  ; 

end; 
end; 


Figure  3.6    Function  POP 


function  area3  (a, i:integer)  tboolean; 
begin 

area3:  =  match (a,i)  ; 
end; 

function  area4 (a,i:integer) :boolean; 
begin 

ai€a4:  =  match  (a,i)  ; 
end; 

function   area  (a, i: integer) : boolean; 
begin 

case  i  of 


3  :area:=area3  (a,  i)  ; 
4 :area;=areaU  (a,i) ; 
end ; 

end; 


Figure  3.7    Function  AREA 
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function  accept (function  name  (a. j: integer) 

:boolean;a, j:integer)  :boolean; 
var  irinteger; 
begin 

fcr  i:=first(a)  to  last  (a)  do 
begin 

if  (f  irst  (apiast  (a)  )  then  leave; 

if  (name  (a,i) )  then 

begin 

proc  (.a.) . now:  =  succ(i)  ; 
accept :=true; 
return; 
end; 
end ; 

accept: =f alse ; 
resetit (a)  ; 
end;  (*  accept  *) 


Figure  3.8    Function  ACCEPT 

job  of  "accept"  is  to  try  all  alternative  clauses.   If  there 
are  no  more  alternatives  to  be  resatisfied,  it  returns 
"false".   The  functions  "first"  and  "last"  determine  the  func- 
tion numbers  of  alternatives  for  any  caller  function.   The 
function  "resetit"  will  reset  the  numbers  of  alternatives 
for  the  future  use. 

The  structure  of  the  function  "density"  (see  Figure  3.9) 
summarizes  the  resatisfying  and  backtracking  processes  in- 
herited in  the  Prolog  program.   If  there  is  any  "resatisfac- 
tion"  request,  the  execution  sequence  has  to  start  from  the 
rightmost  clause  to  leftmost  clause  of  the  Prolog  program. 
Also,  if  there  is  a  need  for  the  backtracking,  this  process 
also  will  begin  from  the  right  to  the  left. 

The  logical  variable  "resatisfy"  in  the  "density"  func- 
tion is  a  global  variable  to  the  program.   Its  job  is  to 
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function  density  (a, i:integer) :boolean; 

label  6,7,8,9,99; 

begin 

if  resatisf y  then 
begin 

break  (8)  ; 
goto  8; 
end : 

6:if  (accept (pop, 6, a) )  then  goto  7; 
joto  99; 


7:i£  (accept  (area, 7,  a) )  then  goto  8; 
if  not  (possible (6)  )  then  goto  99; 
break  (6j  ; 


?oto   6; 
(accept  {is. 8, a))    then  goto  9: 
if  not  (possible (7)  )  then  goto  99; 
break  (7;  ; 

?oto   7 ; 
okay  (a)  then 
begin 

density :=true; 
return ; 
end; 
99 : dens it y:= false 
end; 


Figure  3-9    Function  Density 

determine  if  the  context  of  "resatisf action"  exists.   If  it 
does,  then  the  existing  links  for  binding  variables  are  brok- 
en by  the  "break"  and  transfer  goes  to  the  last  function  cor- 
responding to  the  last  clause  of  the  Prolog  program.   In  the 
"density"  example,  transfer  will  go  to  statement  labeled  8, 
if  the  "resatisf action"  occurs.   This  transfer  will  cause  the 
function  "is"  to  be  called. 

All  "goto's"  in  the  "density"  function  simulates  the 
"backtracking"  process  of  Prolog.   As  noticed,  after  trying 
all  possibilities  for  the  "pop"  function,  transfer  goes  to 
the  last  statement  of  the  "density"  function.   Otherwise,  if 
any  alternative'  of  "pop"  returns  the  "true"  value,  then 
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transfer  passes  to  satisfy  the  next  function  corresponding 
to  the  next  clause  in  the  Prolog  program.   If  this  function 
can  not  create  a  "true"  value,  now  the  "backtracking"  process 
begins.   The  transfer  goes  to  the  last  tried  function,  if  the 
last  one  has  already  any  alternative  to  be  satisfied.   This 
checking  is  made  possible  by  the  "possible"  function. 

The  execution  sequence  may  reach  to  the  last  "if"  state- 
ment (in  "the  density  example,  the  statement  labeled  9) . 
The  function  "okay"  checks  the  returned  values  of  called 
functions  in  that  function  (namely,  in  the  "density"  example. 
They  are  "pop",  "area"  and  "is").  .Finally,  it  evaluates 
them ' and  causes  to  be  assigned  a  truth  value  to  that  function 

The  function  "ans"  (see  Figure  3.10)  is  also  created  by 
the  same  logic  described  before.   It  calls  some  system  func- 
tions such  as  "greater"  and  "lessthan".   These  correspond  to 
the  Prolog  clauses  which  contains  the  relational  operators, 
">"  and  "<",  accordingly. 

The  function  "query"  (see  Figure  3.11)  corresponds  to 
the  Prolog  query  given  by  the  user.   Its  construction  is  not 
different  from  the  other  functions  described  so  far.   The 
actual  execution  chain  starts  from  this  point.   Eventually, 
the  value  of  this  function  will  be  the  answer  to  the  user. 

Finally,  the  main  body  of  the  Pascal  program  is  illus- 
trated in  Figure  3.12.   Its  important  feature  is  to  demon- 
strate the  starting  point  of  the  resatisfying  process.   The 
user  may  request  to  resatisfy  his  goal,  namely  he  enters  ";". 
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function  ans fa, i: integer) :boolean; 

latel  10,11,12,13,14,99; 

begin 

if  resatisfy  then 
begin 

break(13)  ; 
goto  13; 
end; 
10:if  (accept  (density , 1 0, a) )  then  goto  11; 

goto  99; 
11: if  (accept  (density , 1 1 .a) )  then  goto  12; 
if  not  (possible (10) )  then  goto  99; 
break  ( 10)  ; 
goto   10; 
12:if  (accept  (greater. 1 2. a) )  then  goto  13; 
if  not (possible (11J)  then  goto  99; 
break  (  f  i)  ; 
goto   1 1 ; 
13:if  (accept  (lessthan, 13 . a) )  then  goto  14; 
if  not  (possible (12) )  then  goto  99; 
break  ( 12)  ; 
goto   12; 
1U:if  okay  (a)  then 
begin 

ans: =true; 
return  ; 
end; 
99:ans:=false 
end; 


Figure  3.10    Function  ANS 


function  guer y  (a , i:integer)  :boolean; 
,  i  o  ,  y  y ; 


got' 
16; 


label    15 
begin 

if    resatisfy    then    begin    break  (15)  ;    goto    15;    end; 
15:  if    (accept  (ans,  15,  a)  )    then   goto 

goto    99; 
16:if   okay(a)     then 
begin 

guer y : =true; 
return; 
end; 
99: guery : =false 
end; 


Figure   3.11         Function   QUERY 
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messaged  EXECUTION  BEGINS. ...»  f0)  ; 

resatisi y  :  =  f alse; 

while  (sign=';')  do 
begin 

if  guery(go,1)  then 
begin 

message('  yes',0); 

print  ; 

termin  (term)  ; 

readln (term, sign) ; 

close  jterm) ; 

resatisf y :  =  (sign=* ; ' )  ; 

if  resatisfy  then 

messaged  RESATISFTIWG  GOAL »  .0) 

else  message  ('  EXECUTION  ENDS ' , 0) ; 

continue; 
end ; 
message  (str  ( '  noM.O): 

message  (»  EXECUTION  ENDS ',0); 

halt; 
end; 
end.  (*  main  *) 


Figure  3.12    Main  Program 

Then  the  global  variable  "resatisfy"  is  set  to  the  "true". 
Otherwise  execution  ends.   If  "query"  does  have  "true"  value, 
after  the  execution,  the  procedure  "print"  prints  the  values 
of  variables  which  are  declared  in  the  "query". 
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iy.   IMPLEMENTATION  AND  TEST 

A.  SOME  FEATURES  OF  PASCAL/VS  AT  NPS 

Release  2.1  of  Pascal/VS  has  several  differences  from 
"standard"  Pascal.   Most  of  the  deviations  are  in  the  form 
of  extensions  to  Pascal  in  those  areas  where  Pascal  does  not 
have  suitable  facilities.   We  summarize  some  of  them  in 
Appendix  A  so  that  the  interested  user  may  understand  the 
application  programs  given  in  Appendix  B  without  having  any 
surprise . 

B .  IMPLEMENTATION 

This  implementation  involves  mainly  two  distinct  phases . 
The  first  phase  is  the  compilation  process  (compiler  or 
translator)  and  the  second  one  is  the  executing  process 
(executor) .   The  Translator  accepts  source  Prolog  and  trans- 
lates it  to  Pascal  source  (object  program)  by  including  the 
necessary  source  and  run-time  routines.   Then,  the  object 
program  is  compiled  and  executed  under  Pascal/VS  system. 
All  necessary  files  are  handled  automatically  without  re- 
quiring any  user  intervention.   The  main  difference  from  a 
standard  Prolog  is  that  the  user  is  asked  to  place  his  query 
as  the  last  rule  of  the  program.   This  rule  must  begin  with 
the  keyword  "query". 
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The  compiling  process  consists  of  three  phases.   Thtise 
are : 

1)  Lexical  Analyzing 

2)  Parsing 

3)  Translation 

Compilation  begins  with  a  source  Prolog  file  named 
"SOURCE  PROLOG"  which  is  created  as  a  CMS  file.   (.See  Appen- 
dix C  for  a  sample  source  program) .   The  access  to  this  file 
is  sequential  by  the  compiler.   The  token  sequence  is  emitted 
by  the  lexical  analyzer.   If  there  is  no  rejected  token,  the 
parsing  phase  begins.   The  parser  considers  the  context  of 
each  token  and  classifies  groups  of  tokens  such  as  variables, 
atoms  or  integers  and  also  structures  (rules,  head  or  body 
clauses) .   For  our  purposes  we  introduce  the  main  driver  of 
the  parsing  process  (see  Figure  4.1)  for  the  SPROLOG  whose 
formal  definition  has  been  given  in  Chapter  3 .   The  user  may 
examine  the  other  parts  of  the  Parser  by  referring  to  the  com- 
plete program  which  is  given  in  Appendix  B. 

The  product  of  parser  and  lexical  analyzer  are  the  tables 
described  in  Chapter  3  and  also  given  in  Appendix  F,  G,  and 
H.   The  tables  have  two  main  jobs.   First  of  all,  the  trans- 
lator will  use  them  for  translation  purposes.   In  fact,  they 
are  all  parameters  to  be  passed  from  user  source  program  to 
object  program.   This  makes  explicit  their  second  job. 
Namely,  the  executer  embedded  in  the  object  code  will  use 
them  during  the  execution. 
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function  proc: boolean; 

latel  a1; 

begin 

if  not (prefix)  then 
begin 

result:  =  t  (.tokenindex.)  .  name; 
i:=t  (.tokenindex- ) - linenum; 
message 

(♦error...  structure   expected..  * 
|  |str  (result)  ,i)  ; 
proc:=false; 
return; 
end ; 

if  point  then 
begin 

proc:=true; 

return; 
end; 
reject; 

if  not  (iff)  then 
begin 

result:=t  (.tokenindex.)  .  name; 

i:  =  t  (.tokenindex.)  .linenum; 

message 

(♦error..-  "."  or  »:-"  expected..  ♦ 

|  Jstr  (result)  ,i)  ; 

proc:=f alse; 

return; 
end ; 

a1:  if  not ( structure)  then 
begin 

result:  =  t  (.tokenindex.) .name; 

i:  =  t (. tokenindex. ) . linenum; 

message 

(♦error...  structure    expected..  ♦ 

j  Jstr  (result)  ,  i)  ; 

proc : =f alse; 

return; 
end; 

if  pcint  then 
begin 

proc: =true; 

return; 
end ; 
reject; 

if  comma  then 
goto  a1; 

troc :=f alse: 

result : =t  (. tokenindex.)  .name; 
i:=t  (.tokenindex.)  .linenum; 
message 

(♦error...  structure    expected..  ♦ 
|  Jstr  (result)  ,i)  ; 
end;  {*  proc  *) 


Figure  '4.1    Main  Dri¥er  for  Parsing  SPROLOG 
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As  the  last  step,  the  translator  translates  the  user 
source  Prolog  into  Pascal.   The  mapping  process  between 
source  and  object  program  is  given  in  Chapter  3.   The  assump- 
tions and  restrictions  we  have  made  before,  make  Pascal's 
"forward"  declarations  unnecessary.   Also,  the  passing  of 
integer  pointers  as  parameters  between  the  procedures  pre- 
vents exhaustive  variant  record  declarations.   The  probable 
recursive  declarations  made  by  the  user  in  the  source  programs 
are  detected  in  this  phase  by  using  the  stack.   Also,  it  is 
impossible  to  translate  undefined  procedures  into  Pascal. 
This  process  is  handled  by  using  the  stack  as  well. 

If  there  are  no  compiler  detected  errors,  the  Translator 
creates  a  Pascal  source  program  (see  Appendix  C)  which  is 
called  "USER  PASCAL" .   During  the  creation  phase  the  system 
library  is  used  for  the  predefined  procedures .   After  the 
creation  of  Pascal  source  code,  the  Pascal/VS  compiler  is 
called  and  "USER  PASCAL"  is  compiled  and  executed.   This  is 
an  interactive  session.   If  the  programmer  is  not  content 
with  an  answer  to  his  question,  he  can  initiate  backtracking 
himself  by  typing  a  semicolon  when  Prolog  informs  him  of  a 
solution . 

C.   TEST,  EFFICIENCY  CONSIDERATIONS  AND  SELF-CRITICISM 

A  sample  program  that  has  been  compiled  and  translated 
into  Pascal  is  given  in  the  appendices.   All  these  applica- 
tions may  be  considered  as  relational  database  applications. 

The  conjunction  of  many  subgoals  allows  the  user  to  define 

many  queries. 
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This  implementation  does  not  make  as  efficient  use  of 
time  and  space  as  any  commercial  Prolog  compiler  or  inter- 
preter.  The  translation  phase  and  compiling  object  code  are 
all  time  consuming  processes.   Object  code  could  be  any  as- 
sembly object  code  rather  than  Pascal,  because  Pascal/VS  is 
also  a  slow  compiler.   On  the  other  hand,  it  is  apparent  that 
a  Prolog  compiler  spends  a  lot  of  its  time  backtracking. 
Backtracking  is  considered  an  unusual  and  expensive  event  in 
most  language  systems.   Since  in  Prolog  backtracking  is  the 
rule  rather  than  exception,  much  of  the  challenge  of  Prolog 
implementation  is  the  development  of  more  efficient  back- 
tracking mechanisms.   [Ref.  7] 

It  seems  that  the  most  important  point  of  this  work  was 
not  to  write  an  efficient  compiler.   Rather  our  aim  was  to 
find  a  mapping  system  between  Prolog  and  Pascal.   But,  this 
process  also  should  be  developed. 
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V.   EPILOGUE 

In  this  implementation  we  tried  to  translate  a  small  sub- 
set of  the  programming  language  Prolog  into  Pascal.   We  dis- 
cussed a  mapping  algorithm  and  we  pointed  out  some  difficulties. 

In  the  literature  there  are  many  Prolog  implementations. 
Many  of  them  are  interpreters  (see  Figure  5.1) .   For  some  im- 
plementations the  reader  may  refer  to  references  8  and  9 . 
Also,  for  the  memory  management  of  Prolog,  see  reference  10. 


r 

name 

authors 

i 

implementation 

PEOLCG 
(Edinturgh 
Dniv. ) 

E.M.  Pereira 
F.C.N.  Pereira 
E.H.D.  Warren 
L.  Byrd 

MACRO  (etc.) 
Dec  Tops-10 
-20 

PEOLCG 
(Marseille 
Univ.) 

G.  Battani 
R.  Meloni 

FORTRAN 

FFCLCG 
(IBM) 

J.F.  Sow  a 
G.  Roberts 

VM/CMS 

FFOLCG/KR 
(lokyo 
Dniv. ) 

B.  Nakashima 

UTILISP 

Figure  5- 1    Prolog  Systems 

So  let  us  review  how  one?  might  s;et  about  constructing  a 
compiler.   Initially,  the  picture  is  just  a  black  box  with 
source  programs,  as  input  and  correctly  translated  object 


52 


programs  as  output.   The  first  consideration  is  to  decide  how 
the  output  is  related  to  the  input.   It  is  natural  to  examine 
the  structure  of  the  source  language  and  to  devise  for  each 
element  of  the  language  a  rule  for  translating  it  into  tar- 
get language  code.   These  rules  form  a  specification  of  the 
compiler's  function.   The  final  and  generally  more  laborious 
stage  of  compiler  construction  involves  implementing  proce- 
dures which  efficiently  carry  out  the  translation  process  in 
accordance  with  the  specification. 

The  SPROLOG  implementation  uses  the  primitive  data  struc- 
tures, such  as  integer  numbers,  atomic  constants  and  simple 
variables.  List  and  tree  types  of  data  structures  have  not 
been  considered.  In  the  design  phase  we  tried  to  give  some 
idea  for  these  structures.  This  requires  efficient  memory 
management  processing.  From  this  point,  this  thesis  should 
be  developed. 

Backtracking  should  be  considered  as  the  most  important 
fact  in  Prolog  implementations.   In  particular,  the  existence 
of  the  long  chain  of  variables  during  the  execution  phase, 
requires  much  more  efficient  compilation  techniques. 

We  must  sometimes  take  into  account  the  way  Prolog 
searches  the  database  and  what  state  of  instantiation  our 
goals  will  have  in  deciding  the  order  in  which  to  write  the 
clauses  of  a  Prolog  program.   The  problem  with  introducing 
cuts  is  that  we  have  to  be  even  more  certain  of  exactly  how 
the  rules  of  the  program  are  to  be  used.   For,  whereas  a  cut 
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when  a  rule  is  used  one  way  can  be  harmless  or  even  beneficial, 
the  very  same  cut  can  cause  strange  behaviour  if  the  rule  is 
suddenly  used  in  another  way.   However ,  the  cut  operation 
would  be  introduced  by  defining  a  function  to  our  implementa- 
tion.  But,  we  desired  to  give  importance  to  relational  data- 
base applications.   For  this  reason,  this  operation  is  missing 
in  this  implementation. 

Pascal  has  been  chosen  as  an  implementor  language.   The 
type  checking  and  strong  typing  implies  that  careful  design 
and  planning  should  be  considered  in  the  compiler  writing 
process.   In  particular,  this  language  does  not  allow  one  to 
define  twice  names  in  the  same  context.   Prolog  does  not  re- 
strict this.   So,  we  renamed  the  user's  procedure  names  when 
translating  them.   However,  Ada  does  allow  one  to  define 
procedures  with  same  name  (but  with  different  number  of  para- 
meters) in  a  given  context.   This  language  would  provide  much 
more  features  for  this  implementation. 

As  a  conclusion  we  want  to  emphasize  that  the  programming 
language  Prolog  itself  also  has  more  advantages  than  other 
existing  conventional  programming  languages  for  writing  a 
Prolog  Compiler  and  also  other  compilers.   Many  of  the  ad- 
vantages should  be  clear  from  the  discussions  that  we  have 
made  so  far.   It  is  important  to  take  into  account,  not  just 
the  compiler  which  is  the  product,  but  also  the  work  which 
must  go  initially  in  designing  and  building  it  and  into  sub- 
sequently maintaining  it. 
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To  summarize,  Prolog  has  the  following  advantages  as  a 
compiler-writing  tool:   less  time  and  effort  is  required, 
there  is  less  likelihood  of  error  and  the  resulting  imple- 
mentation is  easier  to  maintain  and  modify.   Here  is  the 
last  and  most  important  sentence  of  this  thesis:   Prolog  will 
be  the  programming  language  of  the  20th  Century. 
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SOME  FEATOBES  OF  PASCAL/VS 

1)  Separately  compileable  modules  are  supported  with  the 
SEGMENT  definition. 

2)  "Internal  static"  data  is  supported  by  means  of  the 
"static"  declarations. 

3)  "External  static"  data  is  supported  by  means  of  "def" 
and  "ref"  declarations. 

4)  Static  and  external  data  may  be  initialized  at  compile 
time  by  leans  of  the  "value"  declarations. 

5)  Constant  expressions  are  permitted  wherever  a  constant 
is  permitted  except  as  the  lower  bound  of  a  subrange  type 
definition. 

6)  The  keyword  "range"  may  be  prefixed  to  a  subrange  type 
definition  to  permit  the  lower  value  to  be  a  constant 
expression. 

7)  A  varying  length  character  string  is  provided.  It  is 
called   STRING.   The   maximum  length   of  a   STRING  is   32367 

C*\\  "-i  T*  n  f*  *f"  O  T*  *s 

8)  The"  STRING  operators  and  functions  are  CONCATENATE, 
LENGTH,  STR,  SUBSTR,  DELETE,  TRIM,  LTRIM,  COMPRESS  and 
INDEX. 

9\  A  new  predefined  type,  STRINGPTR,  has  been  added  that 
permits  the  programmer  "to  allocate  strings  with  the  NEW 
procedure  whose  maximum  size  is  not  defined  until  the 
invocation  of  NEW. 

10)  A  new  parameter  passing  mechanism  is  provided  that 
allows  strings  to  be  passed  into  a  procedure  or  function 
without  reguiring  the  programmer  to  specify  the  maximum  size 
of  the  string  on  the  formal  parameter. 

11)  The  MAIN  directive  permits  the  programmer  to  define  a 
procedure  that  may  be  invoked  from  a  non  Pascal  environment. 

12]^   Files  may  Be  accessed  based  on  relative  record  number 
(ranaom  access)  . 

13)  The  tagfield  in  the  variant  part  of  a  record  may  be 
anywhere  within  the  fixed  part  of  the  record. 

14)  A  parameter  passing  mechanism  (const)  has  been  defined 
which  guarantees  that  the  actual  parameter  is  not  modified 
yet  dees  not  require  the  copy  overhead  of  a  pass  by  value 
mechanism. 

15)  "leave".  "continue"  and  "return"  are  new  statements 
that  permit  a  branching  capability  without  using  a  "goto". 

16)  Labels  may  be  either  a  numeric  value  or  an  identifier. 

17)  "case"  statements  may  have  a  range  notation  on  the 
component  statements. 

18)  An  "otherwise"  clause  is  provided  for  the  "case" 
statement. 

19)  The  variant  labels  in  records  may  be  written  with  a 
range  notation. 

20)  Constants  may  be  of  a  structured  type  (namely  arrays 
and  records) . 

The  other  features  which  are  not  included  here,  are  not 
directly  related  to  cur  application.  The  concerned  user  may 
refer  to  Pascal/VS  Manuals  at  NPGS. 
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APPENDIX  B 
TBANSLATOR  FOB  SPBOLOG 


program  npro  (input, output)  ; 
ccrst  max=1500; 
type  trec=record 

linenum: integer; 

relnum: integer; 

name:alpha; 

ttype: integer; 

locality  :  integer ; 
end; 
ttype  =  array  (. 1. .max.)  of  tree; 
procrec= record 

rulenum : integer ; 

relnum: integer; 

name:alpha; 

ptype: integer : 

relativity: integer; 

pointer  1  :mteger; 

Eointer2 :integer; 
begin: integer; 

bend:intecer ; 

abegin: integer; 

aend  rinteger ; 

yesno: integer; 

callee: integer; 

as: integer; 

ae:integer ; 

now: integer; 

pom: integer; 
end; 
parrec=record 

rulenum: integer ; 

relnum : integer ; 

name:alpha; 

ptype: integer ; 

locality :  integer ; 

pointer: integer ; 

ntype: integer ; 

nbmd:  integer ; 

nmatch: bcclean; 
end : 
var  t:ttype: 

line, token index, t bound ,  i,  pen d,p be gin: integer; 

query: boolean; 

date, time: alfa; result: alpha; 

lex err or , tokenerror : boolean ; 

procfile,  par  air  file,  listing,  a  It  file:  text; 

Iit1,lib2,lii3flib4/ user: text; 

px/tx/ax,qg,ret:integer; 


proc:array  (.  1. . max. )  of  procrec; 
par: array]. 1 . .max.)  of  parrec; 


.y  (.  1. .  max. 

7. 1 . .max.) 

'  (. 1 . .max.) 


alt:array (. 1 . .max.)  of  procrec; 
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procedure  cms(cocst  parmstr: string;  var  rc:integer)  ; 

external ; 
procedure  message  (const  msg:string; valint:integer) ; 
var  term:text; 
begin 

termout (term)  ; 

if  Jvalint>0)  then 

tegin 

writeln (term, valint :3.str {' -         •) j Imsg) ; 
writeln (listing, valint:3 ,str ( * .         ')  |  |msg) ; 
end 

else  if    (valirt=0)    then 
tegin 

writeln  (term, msg)  ; 
writeln  (listing, msg) ; 
end 
else 
begin 

writeln (term, msg,  (-valint) ) ; 
writeln (listing, msg , (-valint) ) ; 
end ; 

close (term) ; 
end ; 

function  strlen(ccnst  instr:string)  : integer ; 
var  chsetrset  of  char;  j,i:integer; 
begin 

j:=0: 

chset := (.*0»..,9',»at..lz,.)  ; 

chset :=chset+Dot (chset) ; 

chset: =chset-  (. ■  '.)  ; 

for  i:=1  to  length (instr)  do 

tegin 

if     (instr  (.i.)     in    chset)    then 
j:  =  succ(j); 
end: 

strlen:=  j; 
end; 


58 


procedure  checktckens; 
const  maxtoken=17: 

legaltoken=l6 ; 
type 

rec=  record 

res: alpha; 
end; 
var  hashtable: array (. 1. . max.)  of  integer; 
tokens: array  (.1. . raaxtoken.)  of  alpha; 
totaltoken: integer: 
tokenf ile: text:  bef ore:alpha: 
hashbound, j, reltoken, rule: integer ; 
source: string (70)  ; 
outfile:file  cf  rec; 
pasf ile: text: 
procedure  taketokens; 
var 

taken: alpha; 
dummy: integer; 
begin 

reset (tokenf ile, f  name=ptoken.input.a ')  ; 

while  not  (eof  (tokenf  ile) )  do 

tegin 

readln {tckenfile#dummy, taken) ; 
taken:  =  ltrim  (str  (taken)  )  ; 
tokens  (. dummy. )  : =taken; 
end; 

close (tokenf ile) ; 
end; 

function  identifier: boolean; 
var  idset:set  of  char; 

i:integer ; 
begin 

idset:= {. 'a'.. »z', •_' .) : 

if  (result  (-1.)  in  idset  )  then 

begin 

identif ier:=true; 
return; 
end; 

identifier: =true; 

for  i:  =  1  to  strlen  (str  (result) )  do 
begin 

if  (not  (result  (.  i- )  in  idset  ))  then 
begin 

identifier:=f alse; 
return; 
end; 
end; 
end; 
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function  a  torn: bo clean; 
var  idset:set  of  char; 

i:integer; 
h€gin 

idset:=  (.  'a'.-'z'.)  ; 
atom:  =  (result  {.  1.)  in  idset)  ; 
end; 

function  number: tcolean; 
var  numset:set  of  char; 

i:integer; 
tegin 

numset:=(.' 0'.. »9' .) ; 

number: =true; 

for  i:  =  1  to  strlen  (str  (result) )  do 

begin 

if  .(not  (result  (.i.)  in  numset  ))  then 
begin 

number:=false; 
return; 
end; 
end; 
eiid; 
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procedure  vhichtcken (i: integer)  ; 

var  j, In: integer  ;  tokenf ound: boolean; 

static  hashindex  :integer ; 

value  hashindex: =0; 

begin 

tokenf ound:= false: 

for  j:  =  1  to  maxtoken  do 

begin 

if (result=tokens  (. j.) )  then 
begin 

hashindex:=succ /hashindex) ; 
hashtable  (.  hashindex.)  :  =  j  ; 
if  J[3>legaltoken)  then 
begin 

ln:=t  (.i. )  .  linenum; 
message 

('erroneous  token:  ■  I | str (result) rln)  ; 
tckenerror : =true ; 
end; 

tokenf ound: =true; 
leave; 
end; 
end; 

if  (not (tckenf ound)  )  then 
begin 

if  identifier  then 
begin 

hashindex:=succ(hashindex) ; 
hashtable (. hashindex. ) : =succ (maxtoken) 
tckenf ound: =true ; 
end; 
end ; 

if  jnot  (tckenf ound)  )  then 
begin 

if  nuiiter  then 
begin 

hashindex:=succ(hashindex) ; 
hashtable (. hashindex. ) 
: =succ (succ (maxtoken)  )  ; 
tokenf ound: =true; 
end; 
end; 

if  j[not  (tokenfound)  )  then 
begin 

if  atcic  then 
begin 

hashindex :=succ (hashindex) ; 
hashtable (. hashindex. ) 

n)J  ; 


end; 


:  =succ  (succ  (maxtoke 
tckenf ound: =true ; 
end; 
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if  (not  (tckenf ound) )  then 
begin 

tokenerror:=true; 

ln:=t  (.i.)  .linenum; 

message 

('error...  token > 

■  1  |str  (result)  ,ln)  ; 

end: 

hashbound :=hashindex; 

end; 
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rocedure  putf ile  (i:integer) ; 
egin 

writeln [rule  :4,reltoken:4, ■    ', result) ; 
outf  ilea),  res:  =  result; 
put {outf ile)  ; 
t  (-1.)  .  linenum:=rule: 
t(.i-)  .relnuffi:=reltoken; 
end ; 

procedure  rejecttcken; 
var  i,j:integer:  t:ttype;  tf:boolean; 

opset:set  of  char; 
begin 

opset:  =  (.'+'  •-', »*','/'.)  ; 

message]'  ■ ,  0)  : 

for  i:  =  1  to  (tbound-1)  do 

begin 

tf  :=  (t  (.i.)  .name='  :') 

ft (.i+1.) .name=f :-') ; 
if  tf  then 

t  (.i. )  .name:=  ■  * ; 
end: 

for  i:=1  to  tbound  do 
begin 

tf  :  =  fnot  (t  (.i.)  .  name='  ')); 

if  tf  then 

begin 

i:=succ(j)  ; 

b  (.  j.).name:  =  t(.i.)  .  name; 
end; 
end; 

tbound: =i; 
t:  =  b: 

if  (t (.tbound.) .name  <>  '.'J  then 
begin 

message 

('warning.,    no   eof?      "."      assumed' 
,t  (.  tbound. ).  linenum)  ; 
t  { .  t  bound -M  .)  .  name:  =  ' . '  ; 
tbound:=succ  (tbound)  ; 
end; 

rule:  =  1:  reitoken:= 1  ; 
for  i:=*  to  tbound  do 
begin 

result:  =  t  (.i. ) .  name ; 
with    t(.i.)    do 
begin 

if    (identifier   or 
atom  or 

number        or 
(result  (.1.)    in   opset)  ) 
then    lccality:=0 
else    locality :=-1 ; 
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end : 

putf ile  (i) ; 
if  (result='. • 

if  (result=,.t)  thee  reltoken:=0; 
reltoken:  =succ  (reltoken) 
whichtoken  (i)  ; 
end; 
end; 


)    then  rule:fsucc jrule) 
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E 


rocedure  puttoker; 
egin 

before: =resu It; 
totaltoken:=succ (totaltoken) ; 
tokenindex: =succ (tokenindex)  ; 
t (. tokenindex.) . name:=result; 
t bound := tokenindex; 
end;  (*put  token  *) 
procedure  tokenfcund; 
var  irinteger; 
static  proc: integer ; 
value  proc:=0; 
begin 

taketokens; 

totaltoken:=0 ; 

reset (pasf ile, * na me  =  source,  prolog. a')  ; 

rewrite (outfile)  ; 

line:=0; 

while  not  (eof  (pasfile)  )  do 

begin 

readln (pasfile, source)  ; 
if  (sourceOstr  (*  *)) 

then  line:=succ (line) ; 
if  (sourceOstr  ('  * ) ) 

then  uessage (source, line) ; 
source: =ccmpress (source)  ; 
j:=length  (source)  ; 
i:  =  1 ; 

while  (i<=j)  do 
begin 

token  (i. source /result)  ; 
if  (result=«.')  then 

croc:=succ  (proc)  ; 
if  jresultO'  *)then 
begin 

if  (result  =  1-M  then 

if (bef ore=1 : f)  then 

result: =str (':-*); 
puttoken ; 
end; 
end ; 
end; 

re jecttoken; 
end;  (*  tokenfound*) 
begin 

rewrite (listirg) ; 
before:=str  (* a*)  ; 
tokenerror :  =  false ; 
tokenfound; 
end;  (*  checktokens  *) 
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var 


rocedure  lexica 

ype  xtype=array 

ptype=recor 

name: alp 

nunib  :int 

end; 

prec:array  (. 

a: array  (.1. . 

global, null: 

rocedure  takee 

ar  exp file: text 

egin 

reset (expf il 

i:=0; 

while  not (eo 

begin 

i:=succ f 
for  j:=1 
begin 

read 
end: 

readln  (e 
end: 
nd;  (*takeexp*) 
rocedure  give; 
egir 


lanalyzer; 

J.1..7.)  of  integer; 

ha; 
eger ; 

1.. 12.)  of  Ptype; 
80,1.-7.)  of  integer: 
boolean;   ttoken:alpha; 

;  i,j: integer; 

e,1 name=exp. input. a1  •)  ; 

f  (expf  ile)  )  do 

Ho  7  do 

(expfile,a  (.i,j.)) ; 
xpf ile) ; 


end 
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.. . 

function   taketoken: alpha; 

begin 

if   global   then 

tokenindex :=succ (tokenindex) ; 

null:= (tokenindex>pend) ; 

assert   not (null) ; 
if    not (null)     then 

taketoken :=t (.tokenindex. ) .name 

else 

taketoken  :  =  *  3)' ; 

end;     f*   taketoken  *) 
procedure  reject; 

begin 

tokenindex: =pred (tokenindex)  ; 
end;     (*  reject   *) 

function   lef ttboclean; 

begin 

left:=false ; 

if   not  (null)    then 

lef t:=  (taketoken=«  (')  ; 

end; 

function  right:bcclean; 

begin 

right:  =  false  ; 

if    not (null)     then 

right:=  (taketoken=' ) ')  ; 

end; 

function  comma: boolean ; 

begin 

comma: =f alse; 

if   not (null)     then 

comma:= ( taketoken=l , ')  ; 

end; 

function   variable:boolean; 

var    idsetrset   of   char; 

i:integer ; 

begin 

variable :=f alse; 

result: =take token; 

idset:=  (.  'a'..  »z',  ■    '.): 

if    {result  (.1.)    in    idset   )     then 

begin 

variable:=true; 

return; 

end; 

end; 
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function  a tom:boclean; 
var  idset:set  of  char; 

i: integer; 
begin 

result: =taketoken; 
idset:=  (.■a,..,z».)  ; 
atom:  =  (result  (.  1.)  an  idset)  ; 
end; 

function  number: tcolean; 
var  numset:set  of  char; 

i: integer; 
begin 

numset^f.'O'..  «9»  .)  ; 

number: =true: 

result :=take token; 

for  i:  =  1  to  strlen (str (result) )  do 

begin 

if     (not  (result  (.  i.)    in   numset   ))    then 
begin 

number :=false; 
return; 
end; 
end; 
end ; 

function   varorconst:boolean ; 
begin 

if   variable    then 
begin 

t {.token  index.) .ttype:=1; 
varorconst:=true; 
return; 
end 

else   reject: 
if   number   then 
begin 

t (.tokenindex.)  .ttype:  =  2; 
varorconst:=true; 
return; 
end 

else  reject; 
if  atom  then 
begin 

t (. tokenindex.)  ,ttype:  =  3; 
varorconst:=true; 
return; 
end; 

varorconst: =f alse; 
end; 
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function  iff:bool€an; 
begin 

iff :=f alse: 

if   not  (null)    then 

iff :=  (taketoken= ■ :-') ; 
end; 

function  procname:boolean; 
begin 

procname:=atcn; 
end; 

function  point: boolean; 
begin 

point: =false ; 

if    not (null)     then 

point:= (taketoken=* . ')  ; 
end; 

function  prefix: boolean ; 
label   a1: 

var   local: integer; 
begin 

local: =0; 

if  not  (procname)  then 

begin 

pref ix:=false; 
return; 
end; 

if  not  (left)  then 
begin 

reject; 
local:  =  0  ; 

t  (.  tokenmdex.)  .  ttype:  =  4; 
pref ix:=true; 
return; 
end; 

t (. t ok en index- 1. } . ttype: =5; 
a1:    if   not (varorccnst)    then 
begin 

prefix: =f alse; 
return; 
end; 

local:=succ (local) ; 
t (.token index.) . locality := local; 
if    right   then 
begin 

prefix: =true; 
return; 
end; 
reject ; 
if   comma    then 

goto    a1: 
preiix :=false; 
end;     (*   prefix    *) 
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function   expression (inex: x type)  : boolean; 

var   cexrf:xtype; 

procedure   convert; 

var   i, j,ixrcindex:integer; 

begin 

for  i:=1  to  7  do 
cexj.i.)  :=0; 
for  i:=T  to  7  do 
begin 

if  (inex  (.i.)  =0)  then  continue; 

for  j:=1  to  12  do 

begin 

ix:=inex  (.i. )  ; 

if  {t  (.ix.)  .  name  =  prec  (.  j.)  .name)  then 

begin 

cex  (-i.)  :  =  prec  (-  j.)  .numb; 
leave; 
end; 
end; 
end : 

global:=fals€; 
for  i:=1  to  7  do 
begin 

if  (inex  (.i.) =0)  then  continue; 
if  (cex  (.  i.)  >0)  then  continue; 
tokenindex:=inex  (.i.)  ; 
if  variable  then 
begin 

t (. to ken index. ) .ttype:=1; 
cex  (.i.)  :  =  1 ; 
continue; 
end; 

if  number  then 
begin 

t  (. tckenindex. ) . ttype:  =  2 ; 
cex  (.i.)  :  =  2 ; 
continue; 
end; 

if  atom  then 
begin 

t  (. tckenindex. ) .ttype;  =  3; 
cex  (-i.) :=3 ; 
continue; 
end; 
end: 

global: =true  : 
end;  (*  convert  *) 
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function  check: bcclean: 
var  i:integer;  res: boolean; 
begin 

res:=true: 

for  i:=1  to  7  do 

begin 


res:  =  (cex  (.i. )  =f  (.  i.) )  and  res; 
if  not  (res)  th< 


ten  leave; 

end; 

check: =res; 
end; 

function  send:boclean; 
var  i, j:integer; 
begin 

send:=f alse; 

for  i:=1  to  8C  do 

begin 


for  j:=1  to  7  do 
f  (.  j.K 

if  check  then 


(-i-)i :-a(-i#j.)  ; 


begin 

send  :  =  true; 
return; 
end; 
end; 
end ; 

begin    {*  expression  *) 
convert; 

expression: = send; 
end;  (*  expression  *) 
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function  infix: boolean; 
lalel  a1; 
type  rc=record 

name: alpha; 
ind:integer; 
end; 
var  i, cind ex , mi d die , len , j, tm: integer ; 
ex:xtype; 

legal, legal 1 ,legal2 : boolean; 
tox:array  (• 1..8.)  of  re; 
begin 

cindex :=tokenindex; 
i:=0; 

i:=succ  (i)  :  if    (i>8)    then  leave; 
ttoken: =taketoken ; 
tok  (-i«)  .name: =ttcken: 
tok  (-  i. )  .ind:=tokeninaex; 
until    (ttoken=».»f    or    {ttoken=» , ')  ; 
len:=pred (tokenindex-cindex)  ; 
tm:=0; 

for   i:=1    to    len   do 
begin 

for  j:=5  to  12    do 

if  Jtok  (.i.)  -name=prec  (.  j-  )  .name)  then 
begin 

tm:=i; 
goto  a1; 
end; 
end : 
a1:if  (tm=0)  then 
begin 

tokenindex:=cindex; 
infix:=f alse; 
return; 
end; 

for  i:=1  to  7  do 
.   ex  (.i.)  :=0; 
i:  =  3; 

for  i:=1  to  tm  do 
begin 

if((tm-i}<1)  then  leave; 

if  (j<1)  then 

ex 

,  3 
end: 

i  :=A  • 

for  i:=tm  to  len  do 

begin 


Lf  M<1)  then  leave; 

jx  (.  j.  i:  =tok  (.tm-i.)  -ind; 

j:=pred  ( j)  ; 


end; 


if (j>7 

ex  (.  > 
j:=succ  (j)  ; 


(j>7)  then  leave; 
K (•  j-)  : =tok (.i.) . ind; 
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j:=0; 

if  expression (ex) 

begin 


then 


t(.ex{.U.).).ttyp 
for  i:=1  to  7  do 


e:=6 


(ex(-i.)=0)  then  continue; 


)  then 


end 


endj 

inf ix:= true; 

return; 
end; 
infix: =false ; 
tokenindex:=cindex; 


cality:= j: 

.naIQe=,  +  * 

.ttype:=7 , 

.name='-')  then 

. ttype:=8 ; 

.name=*  *' )  then 

. ttype:=9 ; 

.name=' /' V  then 
) .ttype: =  10; 
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function  structure: boolean; 
begin 

if  infix  then 

structure :=true 
else  structure:=pref ix ; 
end ; 

function  proc: boolean; 
label  a1 ; 
begin 

if  not  (prefix)  then 
begin 

result  :  =  t  (.tokenindex.)  .name; 

i:=t  (.tokenindex.)  .linenum; 

message 

('error...  structure   expected..  * 

|  Jstr(result)  ,i)  ; 

proc:=f alse; 

return; 
end; 

if  point  then 
begin 

proc:  =  true; 

return; 
end; 
reject ; 

if  not  (iff)  then 
begin 

result: =t  (.tokenindex.)  .name; 

i:=t  (.tokenindex.) .linenum; 

message 

('error...  "."  or  "5-"  expected..  ' 

\ | str (result) ,i)  ; 

proc:=f alse; 

return ; 
end; 
a1:  if  not  (structure)  then 
begin 

result:  =  t  (.tokenindex.)  .name; 

i:=t (. tokenindex.) .linenum; 

message 

('error...  structure   expected..  ' 

|  |  str  (result)  ,i)  ; 

proc: =f alse; 

return; 
end; 

if  point  then 
begin 

proc:= true; 

return; 
end; 
reject ; 
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if  comma  then 

goto  a1; 
proc:=false: 

result :=t (. tckenindex. ) . name; 
i:=t (.  tokenindex.) .linenum; 
message 

('error...  structure   expected 
| J  str (result) ,i)  ; 
end;  (*  proc  *) 
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r      — 

begin  (*  lexical  analyzer  *) 

lexerror:=f alse; 

global :=true; 
takeexp;  give: 
null:=false;  xoJcenindex:=0; 

i:=0;  pbegin:=1: 
while  (i<=tbcuna)  do 

begin 

repeat 

i:  —  succ  I i)  * 

if"  (i>tboun&)  then  leave; 

until  (t  (-i.)  .  name  =  '-'J; 

if (i>tbound)  then  leave; 

pend:=i; 

if  not  (prcc)  then 

begin 

lexerror:=true; 

i:=pend: 
tokenindex: =pend ; 

end; 

pbegin:  =  £ucc  (i)  ; 

end : 
end;   (*  lexical  analyzer  *) 

procedure  changea; 

var  i#g,r# bb,be: integer ; 

dummy: alpha ; 

begin 

query: =false ; 

q:=0; 

r:=0; 

for  i:=1  to  px  do 

begin 

dummy:=*  '; 

dummy: =t rim  (str (prcc (-i.)  . name) )  ; 

if  (dummy  =  ,a?)  then 

proc  (.iO-name:^!1; 
if  (aummy  =  *guery • )  then 

begin 

g:=succ  (g)  ; 

r  :=i; 

end; 

end; 

if(g=1)  then 

begin 

query :=true; 

Eb:=proc  (.r.)  .  b  beg  in  ; 
be := proc (. r.) . ben a ; 
if(bb=0)  then 

begin 

query: =false; 

message 

('  error..  .  "query"  must  be  defined  as  a  rule'^r); 
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end; 
return; 
end; 

if  (g=0)  then 
iegin 

query: -f alse; 
message 
('  error. . .  there  irust  be  a  "guery"  procedure '  ,  r)  ; 
return; 
end; 

if(g>1)  then 
hegin 

guery:=f alse; 
message 
('  error... more  than  one  "guery"  procedures1  ,r)  ; 

end; 
end;  (*changea*) 
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(.i.)  .relativityOO) 
(.i.J  .nameOpassname) 


:=proc(.i.)  . 

.aend:=i; 

.abegin:=proc  (-i.) . rulenum; 


then 


then  continue; 
then  continue; 


procedure  createarrays; 
var  a,b,i# j . count, before : integer ; 
procedure  alternatives; 
var  i,ab,ae: integer; 
passname:alpha; 
a,b:integer: 
procedure  putalternate 

(passname: alpha;  var  ai,ae: integer) 
var  i,j:integer; 
static  x:integer; 
value  x :  =  1  ; 
begin 

ab:=x; 

for  i:=1  to  px  do 

begin 

if {proc 
if  (proc 
alt  {.x. 
alt  .x. 
alt  (.x. 
ae:=x; 
x:=succ  (x)  ; 
end; 

if(abOO)  then 
hegin 

if  (jab-ae)=0) 
begin 

ab:=0; 
ae:=0; 
x:=pred(x)  ; 
end ; 
end; 

ax;=pred  (x)  ; 
end; 
procedure  putthenumber 

(passname:alpha;  ab#ae,i : integer) ; 
var  jzinteger; 
begin 

for  j:=i  to  px  do 
begin 

if (proc  (. j. ) .relativity  =  0)  then  continue; 
if  (proc  (->).  nameOpassname)  then  continue; 


rabegin:=af>; 
proc  (.j.  )  .  aend:  =  ae; 
end; 
end;  (*  putthenumber  *) 


procj.j.j. 
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procedu 
var  i,i 

begin 
for 
teg 


re  call; 
j, j:integ 


to 


end 
for 
teg 

end 
for 

teg 


in 
proc  f.i. 


proc 


er; 

px  do 

) . yesno:=Q : 
)  .callee:  =  0; 


i:=1  to  ax  do 
in 
ij:=alt  { 
proc  („ij 


.i.) .abegin; 
. ) . yesno:  =  1; 


i:=1  to  px  do 
in 
if (proc 
if  Tproc 
if  Tproc 
if  i|proc 
if (proc 
for  j:  = 
begin 

if(p 

if  ;p 

i|  ,P 

i|(P 
if  i  p 

if  (P 
cont 


.i.) . yesno=1)  then  continue; 
.i. '  . abegin>0)  then  continue; 
•i.) . ptype=6)  then  continue; 
•  i.  j  .callee>t)}  then  continue; 
.i. ) .relativity>0)  then  continue; 
to  px  do 

. j. } . yesno= 1)  then  continue; 
. j. \ .ategin>0)  then 


continue; 
. j. } .ptype=6) ' then  continue; 
- j. i .callee>0)  then  continue; 

~elativity=0)  then  contmu 
ameO proc  (.  j  .)  .name)  then 


end 
end;  (* 


end; 


proc 


call  *) 
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tegin 

for  i:=1    to    px   do 
begin 

proc  (-i- ) .abegin:=0; 
proc  (.  i. )  . aend:=0: 
alt(.i.)  .abegin:=0; 
alt  (.i. ) . aena:=0 ; 
end; 

for   i:=1    to    px   do 
tegin 

if  (proc f .i. ) . relativity  =  0)    then   continue; 
if    proc  (.i. ) . ptype=6)    then  continue; 
if  (proc  (.i.)  .abeginOO)    then  continue; 
passname  :=proc (. 1. ) .name; 
putalternate fpassname,ab,ae)  ; 
putthenumter [passnamerab,ae, 1) ; 
end: 
i:=6; 

for   a:=240   tc  249   do 
for   b:=240  to    249    do 
tegin 

if((a=240)    and    (b=240))    then   continue; 

i:=succ  (i)  : 

if  (i>ax)  then  leave; 

if(a<>240)  then 

alt  (.i.)  .  name :  =  trim (str  (alt  (.i.)  .  name) )  j  | 

str  (char  (a)  )  |  |  str  (chr  (fc)  ) 
else 

alt  (-  i.)  -  name  :  =  trim  (str  (alt  (.i.)  -  name) )  |  | 

str  (chr  (b)  )  ; 
end: 
call; 
end;  (*  alternatives  *) 
rocedure  procdo  (t: tree)  ; 
egin 

px :=succ  (px)  ; 

proc  (.  px.)  .rulenum:=t.  linenum; 
proc  {.  px.)  . relnum:  =  t.relnum; 
proc(.px.i  .  name:=t.narae; 
proc  (.  px.) .  ptype:  =  t.  ttype; 
end; 


I 
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I 


ro 

eg 


end 
ro 
at 
var 
teg 


cedure  pardo  (t: tree)  ; 
in 

tx:=succ  (tx)  : 

parf.tx.) .rulenum:=t.linenum; 

par  (.tx. ) . 

par 

par 

par 


relEum:=t. relnum; 
.  nane:=t.naine; 
. ptype:=t.ttype; 
. locality:=t. locality; 


5 


cedure  beginend; 
el  a1<a2; 

i,  junteger; 
in 
for  i:=1  to  px  do 
tegin 

proc  (.i. )  .Jjbegin:  =  0; 
proc  (.  i.  )  . bend:=0  ; 


a1: 


end. 
i:=(3;  j 
repeat 

i  :  =  succ  (i)  : 
if(i>px)  then  return; 
until  ( proc  (.i.)  .relativity=1) 
j:  =  pre<m):    . 
proc  (.j.)  .btegin:=i; 
repeat 


=0; 


i  :  =succ  (i)  : 
if(i>px)    then    goto 


a2 


a2: 

end 


until    {proc  (.i. )  .relativity=0) 

proc(.j.)  .  bend:=pred  (i)  ; 

goto   a 1 ; 

proc(. j.) .bend:=px; 

{*  begmend    *) 


81 


procedure   putfiles; 
var   i:integer; 
begin 

rewrite  (procf ile)  ; 

rewrite  (paramfile)  ; 

rewrite    altfile); 


for   i:= 

tegin 

write 
write 
write 
write 
write 
write 
write 


to   tx  do 


end; 
for 


paramfile 
paramfile 
paramfile 
paramfile 
paramfile 
paramfile 
_  'paramfile 
write  paramfile 
write  paramfile 
write  (paramfile 
writeln  (paramfi 


#i:  3, 

,?ar] 

,par  ( 

#par 
#par 


/Par  , 
/Par  , 
-par( 
le)  ; 


.  l, 
-i. 

») 
.1 

.  i. 

.  i, 

.i. 

.  i, 

.i, 


I 


i:=1    to    px   do 

begin 

write (prccf ile, 
write  [prccfile, 
write  'prccf ile, 
write  (prccf ile, 
write  (prccf ile, 
write  (prccf ile, 
write  (prccfile, 
write  i'prccf ile, 
write  (prccf ile, 
write i prccf ile, 
write  'prccfile, 
write (prccfile, 
write  j'procfile, 
write  'prccfile, 
write  prccfile, 
write  i'prccf  ile, 
write  'procf  ile, 
write  i'pr  ccf ile, 
write  (prccfile. 
writeln (procf il 

end; 

for   i:=1    to    ax   do 

hegin 

write  (altf ile, i 
write  (altfile, a 
write  (altfile,a 
write  'altfile,  • 
write  'altf ile, a 
write  (altf ile, a 
write  (altfile, a 


i: 

pr 


3  » 

oc  t. 

oc  (, 
•  :4] 


:1)  ; 

.rulenum:  4)  ; 
.  relnum:4)  ; 

.name :  12)  ; 
i .ptype:4) ; 
'  .locality:  4)  ; 

. pointer :4) ; 
'i  .ntype:4)  ; 

.  nbmd :  4)  ; 


1>  !  , 

) .rulenum:4) ; 

)  .relnum:  4)  ; 


proc 

proc 

proc 

proc 

proc 

proc 

proc  i 

proc 

proc 

proc  i 

proc 

proc 

proc 

proc 

proc  ( 

e)  ; 


ill 


.ptype:4) • 
.relativity: 4 
.pointer  1 :  4)  ; 
) . pointer2:4 
.bbegin: 4) ; 
.bend:  4)  : 
.abeain:4)  ; 
.  aend:  4)  ; 
,yesno:4) ; 
.callee: 4 
.as:  3)  ; 
.ae  :3)  ; 
.now : 3) ; 
. pom: 3)  ; 


») 


) 


m 


:3,' 

It  (.i 
It  .i 
•  :4) 
ltf.i 
It  .i 
ltf.i 


1 


rulenum:  4)  ; 
relnum: 4) ; 

name: 12) ; 
ptype:4} : 
relativity:  4) 
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write (altfile#alt 
write  altxile#alt 
write  (altf ile,alt 
write  i'altfile,alt 
write  altfile/alt 
writefaltxile.alt 
writeln  (altfile)  ; 


pointer  1 :  4)  ; 

Eointer2:  4)  ; 
begin: 4)  ; 
bend:  4)  ; 
abegin: 4) ; 
a end: 4)  ; 


end; 
end;  (*putfiles  *) 
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procedure  enow ; 
var  i,j.k: integer: 

fan i, pan 2; alp ha; 
begin 

for  i:=1  to  px  do 

begin 


end 
for 


if  (proc  (.i. ) . as<>0)  then  continue; 
proc  (-i. )  -as:  =  1 ; 
proc  (.  i. }  .ae:  =  1 : 
proc  (.i- )  -now:=1 ; 

:x  do 


to  px 

;.i.)  .pom:  =  0; 


i:  =  1 
proc( 
k:  =  1 ; 
proc  (.  1. ) .  pom:  =  1 ; 
for  i:=1  to  px  do 
tegin 

if  (proc  (.i.) -pom=0)  then 
begin 

k:  =succ  (k)  ; 
proc(.i.)-pom:=k; 
end; 
panl  :  =  proc  (.i.)  .  name; 
for  j:=i+1  to  px  do 
begin 

pan2  :  =  proc  (-i.).name; 
if (par 1=pan2)  then 

proc  (-  j.)  .pom:=proc(.i-).pom; 
end; 
end; 
end;  (*cnow*) 
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procedure  genbind; 
var  i,j:integer; 
begin 

for  i:=1  to  tx  do 
begin 

par(.i.) .nmatch:=f alse: 
if  (par  (-  i.) .  ptype=  1)  then 
begin 

par  {.i. ) .  ntype:=0; 
par  (.i.) - nbind:=0; 
continue; 
end; 

par  f.i.) .ntype:  =  par  (.i.) -ptype; 
par  (.1.) -rbind:=i; 
end; 

for   i:=1    to   tx  do 
tegin 

if  (par  (.  i.)  .  ntype=0)    then   continue; 

for    j:=1    to   tx   do 

begin 

if  (par  (-  i.)  .  nameOpar  (-  j.)  .name) 
then  continue; 

par  (- j.)  .ntype:=par  (-i.)  .ntype; 
par  (.  j.)  .  nbmd  :  =  par  (.i.)  .nbini; 
end; 
end; 
end; (*genbind*) 
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begin 

px:=0;  tx:=0: 

tor  i:=1  to  ttound  do 

begin 

case   t(.i.).ttype   of 
4,5,6:  procao(t  (.i. )  )  ; 

1,2,3,7,e,9;i0:pardo(t(.i.)) 

otherwise  tbouna:=tbound; 

end; 
end: 
j:  =  1j 

for   i:  =  1    to    px  do 
tegin 

if    (j>tx)    then    leave: 

if    j[proc  (.i.)  .ptype=4)    then 

begin 

proc  (-i.)  .  pointer  1:  =0; 
proc j.i.) .pointer2:=0; 
continue; 

end; 

proc  (-  i. )  . point er1  :  =  j; 

par  (-i. ) .pointer:  =  i; 


repea 


3:  =  succ  (i)  : 

if  (j>tx)  then  leave; 

par  (-j.)  .pointer:  =  i; 


until 

(par (- j.)  .locality<=par (. j-  1.) . locality)  ; 
proc  (.i.  )  .pointer 2  :=pred  { j)  ; 
end; (*for*) 

tefore:  =  proc  (-1.) .rulenum; 
count: =0 ; 
for  i:=1  to  px  do 
tegin 

if (proc  (-i.) . rulenum=bef ore)  then 
begin 

proc  (.i.) .relativity:=count; 
count:=succ  (count) ; 
continue; 
end; 

before := proc (.i. ) . rulenum; 
count:  =  1  ; 
end; 

tegmend; 
changea: 
alternatives; 
enow ; 
genbmd; 
putf iles : 
end;  (*  createarray  *) 
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function  defined 
var  i, j/k. pm,bb, 

no m: alpha; 
begin 

def ined:=tru 
for  i:  =  1  to 
begin 

if  (proc 

then 

if  (proc 

deff:=f 

for  j:= 

begin 

if 

if 

be 


:roolean; 

fce:integer;      def f :boolean; 


€  * 

px   do 

{mLm\  .relativity=0) 
continue; 

(.i. ) . ptype=6)  then  continue; 
alse; 
1  to  px  do 

(proc  (.  j.}  .relativityOO) 
then  continue; 

(proc  (.  j  .)  .name=proc  {.i. )  .  name)  then 
gin 

deff :=true; 

leave ; 

a; 


en 
end; 

if  (not  (deff))  then 
begin 

no 

if 


m:=ltrim  (trim (str (proc (.i.)  .  name) ) )  ; 
(EOffl='J')  then 


ncm:=,a 


end 


me 

(' 

r 

e 

re 


S 


ssage 

undefined  procedure   ' | |str (nom) , 

cc  (-i.) . rulenum)  ; 

fined:=f alse; 

turn; 


end; 

for  i:=1  to  px  do 

begin 

if  (proc 

if i proc 

if  (proc 

bb: =pro 

be:=pro 

for  3:= 

begin 

pm: 

for 

beg 


i'.i.)  -ptype=6)  then  continue; 

.i.) .relativity>0)  then  continue; 

'.i. )  .  bbegin=0)  then  continue; 
c  (-i.) . bbeuin ; 
c  (-i.  )  .  bend; 
tb  to  be  do 

=proc(. j.)  .pom; 
R:=i  to  px  do 
in 


end 
end  ; 
end; 
end;     (*   defined 


if  (proc  (. k.) .relativity>0) 

then    continue; 
if  (proc  (.  k. )  .pomOpm)    then   continue; 
nom:  =  It  rim  (trim  (str(proc(.k.)  .name))  )  ; 
if(nom=,$l)     then 

nom :=' a* ; 

message 

('undefined  procedure'  |  j  str (ncm)  , 

proc  (. k. ) .rulenum)  ; 
defined :=false ; 
return ; 


*) 
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function  recursivezboolean ; 

var  i,j/krlrv0,v1.v2,vbrve,vb1,ve1:  integer; 

xname, nom: alpha 
begin 

recurs ive:=f alse; 
for  i:  =  1  to  px  do 
begin 

if  (proc  (.i.) -bbegin=0)  then  continue; 

xname:=proc f.i. )  -name; 

for    j:  =  prcc  (.  i- )  .bbegm    to   proc  (.i.)  .  bend   dc 

begin 

if  (proc  (.  j.)  .  nameOxname)  then  continue; 
recursive :=t rue; 
nom:=ltrim (trim (str (xname) ) ) ; 
if  (ncff='$')  then  nom:='a'; 
message 

('recursive  is  not  allowed' | | str (nom) , 
proc  (.i-)  .rulenum)  ; 
return; 
end; 
end; 

for  i:=1  to  px  do 
begin 

if ( (proc  (-i-) . relativity=0)  and 
(proc  {. i.) .bbegin>0) )  then 
begin 

vO: = proc (-i. )  .  pom ; 


allowed' 


vb:  =  proc  (.  i. )  .  c begin; 
ve:=proc (-i. ) . bend; 
for  j:=vb  to  ve  do 
begin 

v1:=proc  (.  j.)  .pom; 
for  jc:=1  to  px  do 
begin 

if  (proc  (.k. \ . relativity>0) 

then  continue; 
if  (proc  (.k.)  .bbegin  =  0) 

then  continue; 
if  {proc  (.k.)  .  pomOvl) 

then  continue: 
vb1:  =  proc  (. k.) .bbegin; 
ve1:=procj.k.) . bend; 
for  l:=vbi  to  ve1  do 
begin 

v2: =proc (.1. )  -pom; 
if(v2=v0)  then 
begin 

recursive : =true ; 

xname:  =  proc  (-  1.)  .  name; 

nom:  =  lt rim  (trim  (str  (xname)  ) )  , 

if  (nom='$')  then  nom:  =  a; 

message 

('recursive     is     not 


|  |  str  (nom)  , 
proc  (.1- ) -rulenum)  ; 
return; 
end :  end ;  end ; 
end;  end;  end; 
end;  (*  recursive  *) 
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procedure  createpascal; 
var 

ex 


{I 


f  unc 

var  i: 

begin 

nl 

i: 

if 

end; 

proced 

var  li 

pe 

begin 
li 
wr 
li 
wr 

fe 
ae 
te 

if 
if 
if 

F  = 
a: 

t: 

if 

if 

if 

wr 

wr 

wr 

wr 

wr 

wr 

wr 

end; 

proced 

var  li 

begin 

re 

wh 

he 


en 
cl 


t:array^. 1 ..255.)  of  alpha: 
,p2,p3,ie  t : integer ; pan: alpha; 
on  nl (n: integer) :integer; 
integer; 


:  =  2* 
=  n   Aiv 
(i=0) 


10; 
then 


nl:  =  1 


ean 


ure   takelihO, 
ne:string  (72) ;i:integer; 
mpty , a empty , tempt y :boole 
a,t:  string  (6)  ; 

ne:=' program   user (input, output) 

iteln  (user  .line) ; 

ne:= • const ' • 

iteln (user  .line) ; 

mpty :=  ' 

mpty  :  = 

mpty: = 

pempty 

aempty 


terapty   then 

=str (' false' 

=str ('false* 

=str ('false1 

pempty    then 

aempty  then 

tempty   then 

iteln  (user , ' 

iteln i user , ' 

iteln  |user , ' 

iteln  (user,  ' 

iteln (user  , ' 

iteln 

iteln 


px:=2; 
ax:=2 ; 
tx:=2 ; 


p:=str 
a:=str 
t:=str 


'true ' 
'true* 
'true' 


user, ' 
user, ' 


pempty=' ,  p  :strlen  fp' 
aempty=' , a:strlen 
tempty= ' , t :strlen 
px=* ,px:nl 
ax='  ,ax:nl 
tx=» ,tx:nl 


qg=» ,gg:nl 


|PX) 
ax 

ftx 


ii: 


t(,';'j 


ure   takelihl; 
ne:string (72) 


set (libl , • name=lib1. pascal. a1 * ) 

ile    not   eof(libl)     do 

gin 

readln (libl ,line) ; 

writeln (user, line)  ; 
d 


.ose(libl)  ; 
end;     (*   takelibl 


') 
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procedure   takelii2; 
var   line : string  ("72)  ; 
tegin 

reset  (lii>2,  •  name=lib2.  pascal. a1  •) 

while   not  eof  (lib2)     do 

tegin 

readln (lit2,line) ; 
writeln (user, line) ; 

end; 

close (lib2) : 
end;     (*  takelib2*) 
procedure  takelitj; 
var    line:string  (72)  ; 
begin 

reset (lib3, f  Eame=lib3. pascal. a1 •) 

while   not  eof(lib3)     do 

tegin 

readln (lit3,line)  : 
writeln (user, line)  ; 

end; 

close (lib3)  : 
end;     (*   takelib3*} 
procedure   takelitU; 
var   linecstring  (72) ; 
tegin 

reset  (lib4  ,  *  name=lib4.  pascal.  a1  ■ ) 

while   not  eof  (lib4)     do 

tegin 


readln (lit4,line) ; 
writeln  (user,line)  ; 


end, 
close (lib4) ; 
end;  (*  takelib4*) 
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function  change(var   pralpha) :alpha; 
begin 

change:= 

if  (p= 

if   P= 
i  p= 


P 

P= 

P= 

P= 


§ 


< 
<>» 


th 
th 


t 

t 

t 

th 


if 
if 
if 
if 
end; 

function  exist  (p 
var   iiinteger; 
begin 

exist:=false 
for   i:=1    to 
if  (p=ext 
end; 

procedure  create 
type  H=record 

a:string ( 
nralpha; 
c:string ( 
end; 

12=string{7 
13=record 
btstring  ( 
n: alpha; 
o:string  ( 
end: 
var  f1:ll;f2:l2; 
begin 

if  (exist  (f na 
f 1 .a:=' f unct 
f  1. n:=f name; 
f  1.o:='  (a,i: 
±2  :  =  ' begin' ; 
f3.b:=»  « 
f3- n:=f name: 
f 3. 0:  =  * : =mat 
fa^'end:1  ; 
with  f1  do 


en  change:=' lessthan' ; 
en  change: =,qreater' ; 
ben  change^'lessegual1  : 
ben  change:=' greatequal* ; 
hen  change:= ■ notegual' ; 
en  change: =1 eyual^; 

:  alpha)  : boolean; 


t  do 

(.i.))  then  exist:=true; 

fun (fname:alpha) ; 

9); 

22); 

0); 

*»); 

13)  ; 

f3:13;f4:12; 

me) )  then  return; 
icn  *  ; 

integer) :boolean; ' ; 

» 

ch(a,i)  ;  •  ; 


91 


begin 

writeln(lib4,a: 9,n:strlen (str (n) ) ,o: 22) ; 
end; 

writeln  (lib**,  £2)  ; 
with  f3    do 
begin 

writeln (libU/b:4#n  rstrlen  (str (n) ) ,o: 13)  ; 
end: 

writeln (lib4,f 4) ; 
t:  =  succ  (t)  ; 
ext  (-t •)  :  =  f nane; 
end; 
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procedure   altbody  (fname:  alpha;  abe,abn:  integer)  ; 
type 

line=string (7  2) ; 
line1=record 
a:  string  (9)  ; 
b: alpha; 
c:string (22)  ; 
end ; 

line4=record 
a:string (4)  ; 
b:integer; 
c:char ; 
d: alpha; 
e:string  (2)  ; 
f : alpha; 
g: alpha; 
end: 
var    11 :line1 ;12,13,15,16:line;14:line4 ;i:integer ; 
begin 

if  (exist  (f  name) )    then   return; 

t:=succ  (t)  * 

ext  (.  t. )  :  =  f  name; 

11. a:  =  ' function    *; 

11 .b:=f name; 

I1.c:=»  (a, i: integer) :bcolean;'; 

12:=*begin'  ; 

13 :  =  '  case  i   of  * ; 

write(lib4,H.a)  ; 

write]lib4yH.b:strlen  (str  (11. b)  )  )  ; 

writeln(lib4,l1.c) ; 

writeln (lib4, 12)  ; writeln  (lib4,13)  ; 

with  14  do 

begin 

a-  =  *    f  • 

ex.  , 

Q,     —  1   .   t   . 

d:=f name ; 

g:  =  »  *(a,i)  ;•  ; 
end; 

for  i:=abe  to  abn  do 
fcegin 

with  14  dc 
begin 

b:  =  i : 

f  :=a  It  (-i.)  -  name; 
t:=succ  (t)  • 
ext  (.t.) :=f ; 
write ( lit 4 , a: 4- b:nl (b)  , c: 1 , d: strlen (str jd)  ))  ; 
writeln  (lib4,e  : 2,  f :  strlen  (str  (f)  )  ,  g:  6)  ; 
end ; 

15:='  end; ':writeln (lib4,15) ; 

16:=«ena;':writeln(liba#16)  ; 
end;  (*altbody*) 
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?rocedure  createrule (f name :alpha; var  a,b:integer) 
ype 

line=string  (7  0)  ; 
lr€c=record 

two: integer; 
del: char ; 
end; 
lat>=record 

dec:string (6)  ; 
num:array  {.  1..20.)  of  Irec ; 
del:char; 
end; 
line1=record 

a:string{9) ; 
n:alpha; 
o:string  (22) ; 
end; 
line3=record 

a:string{34)  ; 
b:integer : 
c:string  (8) ; 
d:integer ; 
e:string  (6)  ; 
end; 
line6=record 

no:  string  (4)  ; 
numl : intecer; 
cond: alpha; 
name: alpha; 
commal :char; 
num2: intecer; 
comma2: char; 
a:char ; 

other:strirg  (13)  ; 
num3: integer ; 
del:char; 
end; 
line9=record 

f :string  (23) ; 
num :integer ; 
other:string (16)  ; 
end; 
linel 0=record 

other: alpha; 
num: intecer ; 
f :  string  (2)  ; 
end; 
line12=record 

b:  string  (M)  ; 
n:integer : 
o: string  (16)  ; 
end ; 
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line14=record 

a:  string  (11)  ; 

b: alpha; 

c:  string  (7)  ; 

end; 

lj.ne17=record 

a:  string  (7)  ; 

d: alpha; 

c;  string  (7)  ; 

var  1. 14,17,113. 115, 116. I18:line;  13:line3; 
12:lab:±6.18:line6;l9:line9; 
110.11 1 : line  10:112: line12; 
I1:line1;  I14:line14;  I17:line17; 

i,aa,li: integer; 

95 


^ 

procedure  line15; 

var  i:integer; 

begin 

1 1. a :=' function  • ; 

11 .n:=f name; 

H.o:  =  »  (a.  i:  integer)  xboolean;1; 
12.dec:='label  •; 

for  i:=1  to  2C  do 

begin 

12.  nui  (.  i.)  .  two:=0  ; 
12. n urn  (.i.)  . del:=»  , ' ; 

end: 

12.del:=';»; 

with  13  do 

hegin 

a:='     if  resatisfy  then  begin 

break  ('  ; 

b:=0; 

c:=Z) ;  goto  • ; 

d:=0;   * 

e:  =  *  ;  end; ' ; 

end ; 

lU:=,beginl ; 

end; 

procedure  line67; 
begin 

16.no:='     '; 

I6.num1 :=0 ; 

16.cond: =• : if  (accept(»; 

16.name:=l            * ; 

l6.comma1:=l , ' ; 

16.num2:=0; 

16.comma2:= ■ , f ; 

16-a:=«a' ; 

16. other :=') )  then  goto  *; 

16. num3: =0; 
16.del:=»;* ; 

17:='        gcto  99; f ; 

end; 

procedure  line811; 

begin 

18.no:=»     '; 

18.num 1 : =0; 

18.cond:  =  ' :if  (accept  ('; 

18.name:=l             '; 

18. comma  1  := '  ,  • ; 

18.num2:=0; 

18. comma 2:  =  '  . ' ; 

18.a:='a«; 

18. other :=1) )  then  goto  *  ; 

18.num3 :=0 ; 
18.del:=';*; 

19.f:='        if  not  (possible  (' ; 
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19.num: =0; 

19.other:=») )  then  goto  99; 
110-other:^       Break  (»; 
110. num: =0: 
I10.f:  =  »)  ;': 

11 1. other: =■       goto  '; 
11 1.num:=0 ; 
a    111. f:=';'; 
end; 

Erocedure  line1218; 
egin 

I12.b;=»         « ; 
I12.n:=0; 

H2.o:  =  ,:if    ckay(a)    then'; 
113:=*  regin' ; 

114. a:='  •; 

114. b: =f name; 
114.0:  =  ' :  =  true; ' ; 
115:=*  return; f ; 

116:='  end;'; 

I17.a:=»  9S:»; 

117. b:=f name : 
I17.c:=« :=fal£e» ; 
I18:='end; • ; 
end; 
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procedure  write15; 
var  i,nc:integer ; 
begin 

with  11  do 
tegin 

writeln  (lib4,a: 9 #n:  strlen (str  (n) )  ,o:  22)  ; 
end: 

with  12  do 
tegin 

write  (lit4,  dec)  : 
for  i:=1  to  li  do 
begin 

nc:  =  rl  (num  (.i-  )  .  two)  : 

write  (lib4,  num  (.  i.)  .  two: nc, num  (.  i.)  .del:  1)  ; 
end: 

writeln  (lib4)  ; 
end: 

writeln(lib4,14)  ; 
with  13  do 
tegin 

b:  =12.  num  (.li-2. ) .  two; 
d:=b; 

nc:  =  nl  (b)  ; 

writeln(lib4,a:34/b:nc,c:8,d:nc,e:6)  ; 
end; 
end; 

procedure  write67; 
var  nc:integer; 
begin 

with  16  do 
tegin 

nc:=nl(num1)  ; 

write (Xib4, no : 4, num 1 :nc,cond: 12) ; 
Dc:=nl (num2) ; 

write (Iib4, name: strlen  (str (name)  )  ,comma1 : 1 , num 2  :nc)  ; 
nc:=nl  (num3)  ; 

writeln  ( lib 4 , comma 2: 1,a: 1 , other: 13,num3: ncrdel :  1)  ; 
end : 

writeln (lib4, 17)  ; 
end; 

procedure  write8  11; 
var  nc:integer; 
begin 

with  18  do 

begin 

nc:=nl(num1)  ; 

write (lib4. no : 4, num 1 :nc,cond: 12) ; 

nc:=nl  (num2)  ; 

write (lib 4. name: strlen  (str (name)  )  ,comma1 : 1 ,  num2  :nc)  ; 

nc:=nl (nuid) ; 

writeln (lib 4 , comma 2: 1  ,a:  1 , other: 13, num3:  nc, del : 1)  ; 

end ; 
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—  -■  ■■    ■  -   -     -       .... 

with  19  do 

begin 

nc:  =  nl  (nun)  : 

writ el n (lib4,f : 23, num:nc, other : 16) ; 

end; 

with  110  do 

tegin 

nc:=nl  (nunt)  : 

writ el n  {lib4, other : 13,num:nc, f : 2) ; 

end: 

with  111  do 

tegin 

nc:  =  nl  (num)  : 

writ el n  ( lib4, other : 13,nuin:nc,f:1) ; 

end; 

end; 
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procedure  write1218; 
var  nc: integer; 
begin 

with  112  do 
tegin 

nc:=nl  (n) ; 

writeln  (lib4,b:4rn:nc,o: 16)  ; 
end; 

writeln(lib4,H3)  ; 
with  114  do 
tegin 

writeln(lib4,a: 1 1, b:strlen {str (b) )  ,  c: 7)  ; 
end; 

writeln  (Iib4,l15)  ; 
writeln|lib4,H6)  ; 
with  117  do 
tegin 

writeln  (lib4,a: 7,b :strlen  (str (b) ) ,c: 7)  ; 
end; 

writeln(lib4,H8)  ; 
end ; 
begin 

if  (exist  (f  name) )  then  return; 

t:=succ(t);  ext  (.  t. )  :  =  f  name; 

line15 ; 

aa:=pred  (a)  ; 

li:=b-a+2: 

for  i:=1  to  li  do 

tegin 

aa:  =  succ  faa)  : 

12.num(.i.)  .two:=aa; 
end; 

li:=succ(li)  ; 
12.num (. Ii.'  .two:=99: 
12.  num j.li. )  . del:='  ;  * ; 
write15; 
line67: 
16. num 1 :=a: 

16. name: =change {proc  {. a.) .name)  ; 
16. num2 :=a; 
16.num3: =succ (a)  ; 
write67 ; 

for  i:=succ(a)  to  b  do 
tegin 

line811; 

I8.num1 : =i: 

18 . name:=cnange (proc  (.i. ) .name)  ; 

18.  num2: =i; 

13  .num3:  =succ  j[i)  ; 

19 . num:  =  pied (i\  ; 

110. num:=Fred (r)  ; 

11 1 . num: =pred (i)  ; 
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end 


end 
lin 
112 
vri 
(* 


begin 
rew 
rew 
t:  = 
for 
beg 


write81 1 ; 

• 

e1218; 

. n:=succ (t) ; 
te1218; 
createrule   *) 


rite ( lib 4 

rite  (user 

1:    extf.t 

i:=1    to 

in 
pan;=alt 
=alt  ' 
=alt 
=  alt 


(P1=0) 
(P1>0) 


, *name=lib4. pascal. a1 ' )  ; 
-  *name=user.  pascal. a  1  • )  ; 
\ .— t      t • 

ax  do 

(.i. ) . name ; 
.i.) . bbegin; 
-i.) . bend; 
. i.) . yesno ; 

then  createf  un  (pan)  ; 

then   createrule (pan, p1,p2) 


=1  to  px  do 


end 
for 
teg 


proc 
'proc  i 

proc  ' 
pan:=pro 
p1 : =proc 
p2:=proc 
if (pl>0) 


.i.) . yesno=1)  then 
.i.J . ptype=6)  then 
.i.i.name=' query*) 
c  (.1.  )  .  name; 
(.i.)  .abegin; 

-i. }  . aena ; 

then  altbody  (pan,p1,  p2) 


continue; 
continue; 
then  qq:=i; 


end 
for 
teg 


i:=1  to  px  do 
in 
if  [proc 
if  (proc  , 

pan: =proc  (.l.J.name; 
p1 :  =  proc  " 
p2: =proc 
If (if 1=0 
then 


then  continue; 
then  continue; 


.i.)  .  yesno  =  1) 
-i. } .  ptype  =  6) 
:  (.1.) . name; 
(.i. )  .  bbegin; 
(.i.)  .bend  ; 
)  and  (proc (. i. ) .relativity=0) ) 


createf un (pan) ; 


i:  =  1 
in 


to  px  do 


if 
if 


end 


end 
tak 
tak 
tak 
tak 
tak 
( 


(proc  { 
(proc  ( 

pan:=pro 
p1 :=proc 
p2: =proc 
if (p!>0) 


elibO  ; 
elib2; 
elibl  ; 
elibU; 
elib3: 
♦create 


)  .yesno=1) 
1 .ptype=6) 


then 
then 


continue; 
continue; 


.1 

c  (.1.  J" .  name; 
.i. ) . bbegin; 
.i.J  .bend ; 
then   createrule (pan, p 1,p2) 


pascal*) 


101 


t€gin 

cms  (f exec  e',ret); 

datetime (date, time) ; 

message  ('    miniprolog      npgs  • j | str  (date) 

|  |str7'  .      .     ..  ') 


m< 

cl 

message  {'    ' , 0)  ; 

if   not/tokenerror)    then 

lexicalanalyzer 
else 
begin 

message 
('compilation   terminated  due   to   user   errors. ',0)  ; 

message 
('virtual   compilation   time;in   microseconds' , -clock) ; 
retcode  (-  1)  ; 
halt; 
end; 

if  not  (lexerror)    then 
begin 

createarrays; 

if    /defined   and  not  (recursive)    and  query)    then 

begin 

messace 
('no  compiler  detected  errors-. source  lines' , -line)  ; 
creat epascal; 
end 
else 
begin 

messace 
('compilation  terminated  due  to  user  errors. ', 0) ; 
retcode  (-1)  ; 
halt; 
end 
end 
else 
begin 

message 
(•compilation  terminated  due  to  user  errors. ',0)  ; 
retcode (-  1) ; 
halt; 
end; 

message 
('virtual  compilation  time;in   microseconds' ,-clcck) ; 

retcode (0) ; 
end. 
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APPENDIX  C 
OBJECT  PBOGB1M 


type 


program   user  (input,  output)  ; 
const 

pempty= false; 

aempty=f alse ; 

tempty=false ; 

px=48; 

ix=44: 

tx=235; 

gg=45; 

procrec= record 

rulenum : integer ; 
relnum; integer ; 
name:alpha; 

ptype:integer :     {*    4. .6    *) 
relativity: integer ; 
pointer  1 :  integer; 

Eointer2  : integer ; 
begin: integer; 

bend:integer ; 

abegin: integer; 

aend:integer ; 

yesno: integer; 

callee: integer; 

as:integ€r; 

ae:integer ; 

now: integer; 
end ; 
parrec=record 

rulenum : integer ; 

relnum: integer; 

name:alpha; 

ptype: integer; 

locality  :  integer ; 

pointer: integer; 

ntype: integer; 

nbmd:  integer; 

nmatch:bcclean; 

who: integer ; 
end; 

tracef  ile-  terUfprocfilejParamfile, 

listing. alt file , user, par file: text; 

trace2: text; 

proc:array (. 1.. px.)     of    procrec; 

par :array7. 1 . . tx. )  of  parrec; 

alt:  array  .  1  ..ax.'  of  procrec; 

cpt :array  (. 1 . .tx.  \    of  alpha; 

sign:char; cx,ret,lnum: integer;resatisf y: boolean ; 


(*  7.. 10.  *) 


var 
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o  tx  do 

tracefile, 
tracef ile, 
tracefile, 
tracefile, 
tracefile, 
tracef ile, 
tracefile, 
tracefile, 
tracefile, 
tracefile, 
tracefile, 
tracefile, 
n  (tracef il 


procedure  cms ( 

external; 
procedure  writ 
var  i:integer; 
begin 

for  i:=1  t 

hegin 

write  ' 
write  ' 
write  ' 
write 
write 
write 
write i 
write  ' 
write 
write  ' 
write 
write 
write! 

end; 

writel 

for  i:=1  t 

hegin 

write  (trace2 
write  i'trace2 
write  i'trace2 
write  (trace2 
write*  trace2 
write  'trace2 
write (trace2 
write  trace2 
write itrace2 
write  'trace2 
write (trace2 
write  (trace2 
write  i'tr  ace2 
write  i'trace2 
write  'trace2 
write itrace2 
write  trace2 
write  ftrace2 
d (tiac 


const  parmstr: string;  var  rc:integer); 
eit ; 


i:2,». 
par  (.i. 
par(.i. 


f:4) 


par  (.1. 
par  (.i. 
par 
par 
par 
par  .1. 
par  f.i. 
par  (.i, 
e) 


.1. 


.rulenum:4) ; 
.relnum:4)  ; 

. name:  12) ; 

. locality:4) 
.pointer:  4) 
. ntype:4] 
.nbind:4; 
.nmatch 
.who  :4) 


si. 


n (tracefile) 
o  fx  do 


,proc  (. 
,proc  (. 

,K    ':«) 

,proc 

,  proc 
,  proc 
,  proc 
,proc 
,  proc 
,  proc 
,proc 
,procf. 
, proc  { . 
,proc  ;. 
, proc i . 
,proc ( . 
,proc( 
e2) 


end ; 


writel 

end: 

writeln  (trace2)  ; 


: 


!)  ; 

1:1 

t 

i. 
i. 
i. 
i. 
i. 
i. 
i. 
i. 
i. 
i. 
i. 
i. 
i. 
i. 


rulenam:3) ; 
relnum: 3) ; 

name: 12} ; 
ptype:3] : 
relativity :3)  ; 
pointer  1:3); 

Eointer2:3) ; 
begin: 3) ; 
bend:  3)  : 
abegin : 3) ; 
aend:  3)  ; 
yesno:2f ; 
callee: 3) ; 
as:3* 
a 


as:3j  ; 
ae:3) ; 
now: 3) ; 
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r      

procedure  message  (const  msg: 

string; 

valint: 

integer) ; 

var 

term:text; 

begin 

termout ( term) ; 

if  j>alint>0J  then 

begin 

writeln (term, valint : 3 

,str  (». 

')  11 

msg)  ; 

end 

else  if  (valint=0)  then 

tegin 

writeln (term, msg) ; 
lnum:=succ  (lnum)  ; 

writeln (listing, msg) ; 

end 

else 

begin 

writeln  (term, msg, (-va 

lint) ) ; 

end; 

close (term) ; 

end 
_  _  . 

i 

105 


5roc€d 
atel 
var  i, 

begin 
if 
re 
fo 
te 


ure  putfiles; 

a1,a2; 

f :integer; 

:char ; 


a1: 


a2: 


en 
if 
re 
fo 
te 


:-4- 

.1. 

ar  (-1.)  .  nbind)  ; 
alse; 


.relnum) ; 
.name)  ; 

-  locality) ; 
.  pointer)  ; 


en 
if 
re 
fo 
te 


tempty  then  goto  a1 
set (paramf ilei ; 
r  i:=1  to  tx  do 
gin 

read  (paranfile,f )  ; 

read Tpar amfile,  pp) 

read  par anf ile,  par  (-i.)  .rulenum)  ; 

read i paramfile,par 

read  paranfile,  par 

read  iparamfile, par 

read  iparamfile,  par 

read  /paranfile,  par 

read (par amfile, par 

readln  (paramf ile,r 

par  (.i.)  -rmatch:=j 

pempty    then   goto   a2 
set  (procf  ile)  : 
r   i:=1    to    px   do 
gin 

read  (procfile,f)  ; 
read  'procf  ile, pp)  ; 
read  (procf ile, proc 
read  [procfile,proc 
read  (prccf ile, proc 
read  (procf ile, proc 
read  [procf ile, proc 
read  Tprocf ile, proc 
read  procf ile, proc 
read  [procf  ile, proc 
read  i|procf ile, proc 
read  prccfile,  proc 
read  (procf ile, proc 
read  [procf ile, proc 
read  [procf ile, proc 
read  /procf ile, proc 
read  (procf ile, proc 
readln (procf ile, pr< 
3; 

aempty   then   return; 
set (altfile) ; 
r   i:=1    to    ax   do 
gin 

read  (altfile,f)  ; 
altfile, pp); 
a  It  file, alt 
a  It  file, alt  ' 
altfile,alt 
altf ile, alt 
altf ile, alt 
altf ile, alt 


.rulenum) ; 

. relnum) ; 

. name)  ; 

-Ptype).  ; 

.  rela  ti  vity)  ; 

.  pointer  1)  ; 

.  pointer2)  ; 

.Dbegin) ; 

.  bend}  ; 

. abegin)  ; 

.  aend)  ; 

.yesno)  ; 

. callee) ; 
i  .  as)  ; 
}  .ae)  ; 
i. ) . now)  ; 


read  i 

read 

read 

read 

read 

read 

read 


read  (altf  ile,  alt 
a  Itf  ile, alt 
alt  file, alt 
altfile. alt 
n  (a  ltfile,alt 


. rulenum) ; 
. relnum) ; 
.name)  ; 
•Ptype).  ; 
.relativity)  ; 


end ; 
end;     (*putfiles    *) 


pointerl) ; 
i. '  . pointer2) ; 
i. ) .bbegin) ; 

bend)  ; 

abegin) ; 
(.1.) . aend)  ; 


1:1: 
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I 


rocedure  resetit  (a:integer)  ; 
egin 

if((a-1)=gg)  then  return; 

proc (.  a. ) . as :=proc (. a. ) . abegin; 

proc  .a. J .ae  :=proc (-a.) . aend; 

proc  (.  a. )  .nou:=proc  (-a.)  .  abegin; 

if (proc (.a. ) .as<>0)  then  return; 


proc  (.a.J  .as  :  =  1 


proc  c- 


a- } . ae:=1 : 
proc  (.a. I . now:  =  1 ; 

end;  (*resetit  *) 

function  possible  (acinteger) 

var  al  ra2,a3 :boolean; 

begin 

al :=false; 

a2:=false; 

a3:=false; 

a1  :=  (proc  (.a.)  .now<  = 

if (proc (.a. ) - p type=6i 

if  (resatisf  y)  then  a3 

possible :=a1  or  a2  or 

end;  (*possible*) 


boolean 


roc  (-  a. 

then  a 
: =true; 

a3: 


).ae)  ; 

2: =true 
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rocedu 
alel  a 
ar. i, j 
egin 
if 

4f  ( 

beg 


a1 


re  break (a:integer) ; 
1: 

,k, call, a sta#af in ,p beg, pend: integer; 

tempty    then   return; 

proc  (.a. )  .ptype=4)    then   return; 

proc  (.a.) . ptype=6)     then 


end 

teg 


in 

pbeg:  =  proc  (-a.)  -  pointer  1 ; 
pena:=prcc  (.a.J  .pointer2; 
goto   al; 

• 

proc  (.a. ) .callee>0)  then 
in 
call:=proc  (-a.)  .callee; 


end 
els 
teg 


end 
pbe 
pen 
for 
teg 


asta:  =  proc /.call.)  .pointer*!; 
af in:=prcc(.call.) .pointer2; 


-a.) . now; 
call)  ; 
11.)  . 


ca. 


.')  .pointerl ; 
.)  .pointer2; 


e 
in 

call:=prcc 

call :=pred 

asta:=proc 

af in  :=proc (.call 

g:  =  proc  (.a.)  .pointerl ; 
d:  =  proc  (.a.)  .pointer  2; 

i:=asta  tc  arin  do 
in 

if  (i=0)  then  continue: 

if  (par  (.  i.)  .  whoOi)  then  continue; 

par  (.i. ) . rmatch:=f alse; 

if  (par  (.i.)  .ptype=1)  then 

begin 


end 
J-*  = 

III 

teg 


end; 


par  (-i.) .ntype:=0; 
par  (.i.j -nbind:  =  0; 


proc  1.2.) 
proc  (.3.) 
1: =pbeg 
in 
if  (i=0) 
if  (par  (. 
par  (.1.) 
if  (par  (. 
begin 

par  ( 
gar  ( 
for 
begi 


. tend: 
.pointer2; 
to  pend  do 

then  continue: 
i.).who<>i)  then  continue; 
.  Efflatch:=f alse; 
i.).ptype=1)  then 


.i.) . ntype :=0 ; 
.i.J  ,nl 


end; 


end; 


bind :=0 ; 
k:=pbeg   to  j  do 
n 
if  (k=0)  then  continue : 

parf.k.)  .whoOk]  then  continue; 

parf.k.  .  ptype<>1)  then  continue; 

par (. k. ) . name <> par  (.i. ) . name) 

then  continue; 
par  (. k.) . n match :=false ; 
par  1 .  k. }  .ntype:=0; 
par  (.  k. )  .ntind:=0; 


end, 
;nd;  (*Lreak*) 
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function  analyze 

(a:integer;    var   re, le: integer) :boolean ; 
var   f ,1. j,m:integer ; 
tf: boolean; 
nset:set   or    1..4; 
begin 

f :=proc  {-a.)  .pointerl; 
l:=troc  (.a.)  .pointer2; 
nset:= (.    .)  ; 
for   j:=f   to   1  do 
begin 

if  (1=0)    then  continue; 

nset:=nset+  (-par  (.  j.)  -locality.)  ; 
end; 

for   j:  =  1    to    (l-f+1)     do 
begin 

if (j   in   nset)    then   continue; 

m:  =  3; 

leave; 
end; 
le:=0; 

analyze:=true; 
for   j:=f   to    1  do 
tegin 

if  M=0)     then   continue; 


if  (par  (- j«)  .locality<m) 
if  (par  (.  >) .  locality>m) 


then    le:=succ (le) ; 
then    leave; 


then    re:=succ (re) ; 


.f.  )  .ntypeOpar  (.1. )  .ntype)     or 
.f .)  .ntype=0)     or 
.l-j.ntype=0j)  ; 


begin 

tf :=  ( (par 
[par 
(par 
end; 

if((le=1)  and  (re=3)  )  then 
hegin 

tf  :=  ( (par  |.f .)  .  ntype<>2)  or 
i  par  (.1.  J.  ntype<>2)  or 
par  (.1-2.)  .  ntype<>2) )  ; 
end ; 

if((le=3)  and  (re=1))  then 
tegin 

tf :=  ((par  (.1.) .ntype<>2)  or 
i par  (.f . ) .  ntype<>2)  or 
(par(. £  +  2.)  -n€ype<>2))  ; 
end; 

if((le=3)  and  (re=3)  )  then 
tegin 

tf := ( (par  (.f .) .ntype<>2)  or 

par  {.f +2. ) .ntype<>2)  or 
par  (.1-2.  )  .ntype<>2)  or 
.parj.l.)  .ntype*>2))  ; 
end : 
if  tf  then 

analyze: =f alse; 
end;  (*  analyze  *) 
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integer) : boolean; 
e:integer; 


function  is  (a.k: 
yar.l,f  ,i,;j,pb,p 
tegm 

f:=procj.a.)  .pointerl; 


l:=succ  (f) 


par  (.f .  V.nty 
par  ; 
par  i, 


.f.) .h 
.f  .j  «n 
•£. ) .n 

3  * 

|a|>p 


pe:=par  (- 1.)  .ntype; 
nd:=par  (-1-)  .  nbmd; 


is:=true, 
if  (succ  (1 
if  {succ 

pb:=succ  (a) ; 
pb:=proc i.pb 
pe:=proc  (.  j. 
|e:=proc  (.  pe 
for  i:=pb  to 
begin 

if  (i-0) 

if  (par  (. 

then   c 

if  (par  (. 


nbi 
match:=true; 


)    then   return; 
)    then    return; 


-) .pointerl; 
) .bend; 
.) . pointer2; 
pe   do 

then   continue; 

i.)  .  nameOpar  (.  f .) .  name) 

cntinue; 


i-).ptype<>1)    then  continue; 
. ntype: = par (-  f- ) .ntype; 
«rbind:  =  par  {.  f . )  .nbind; 
.who:=par (.1.) .who; 


par  (.1 
par  (.i. 
par  (.i. 
end; 
end;  J*is*) 

function  eval(op1:real;op: integer ; op 2: real) : real; 
begin 

case  op  of 
7:eval: =op1+cp2; 
8:  eval:  =op  1-cp2; 
9:eval:=op1*cp2; 
10:eval: =op1/cp2; 
end ; 
end; 

function  doreal  (pralpha)  :real; 
var 

num:real ; 
begin 

readstr (str (p) ,num)  ; 
doreal: =num; 
end; 
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f uncti 
var  re 

begin 
if 
be 

en 
f: 
1: 
if 
te 


on  lessthan  (a,k:integer) :boolean; 
rle,f,lrp1rp2.p3,p4: integer; 
#pb/pcrpa: alpha; op1, op2 : integer ; 


if 

be 


if 
be 


if 
te 


not (analy 
gin 

lessthan 

as 

=  proc  (-a.) 
=proc j.a.) 
(jre=1)  an 

gin 

if  (  (par  (. 

then  begi 
lesst 

end; 

p1  :=par  {. 

pa:=par (. 

p2:  =par  '- 

pb:=par  (. 

lessthan: 

return;en 
({re  =  1)  an 
gm 

d1 :=par  ' 
pa:=par 
p2 :=par 
pb:=par 
p3:=par 
pc:=par i 
op1 : =par 
lessthan 
doreal  (p 
return  ;e 
((re=3)  an 
gin 

p1  :  =  par  ' 
pa:=par  ' 
p2 :=par 
pb:=par 
op1: =par 
p3 :=par  [ 
pc:=par  ( 
lessthan 
eval  (dor 
return ;e 
(J[re=3)  an 
gin 

p1 :=par 
pa: =par 
p2: =par  ' 
pb :=par  r 
opl : =par 
p3:=par  ' 
pc :  =  pa  r 
p4 :=par  \ 
pd:=par i 
op2: =par 
lessthan 


ze(a#re,le))  then 

:=false;  return; 

.pointer  1; 
.pointer 2; 
d  (le=1))  then 

f.).ntype<>2)  or  (par (.1.) .ntype<>2) ) 

n 

han :=false ; return; 

f .)  .nbind; 


p1.) . name; 
1.)  .nbind; 


p2. ) .name; 

=  (doreal (pa) <doreal (pb) ) 

d'(le=3))  then 


.1-2 
.p2. 

-1.) 

.p3. 

(.1- 


nbind ; 
.name ; 
) . nbind; 
. name ; 
nbind ; 
. name ; 
1.) .ptype; 


a) <eval (doreal (pb) ,op1 , doreal  (pc) )  ; 

nd; 

d  (le=1))  then 

.f . ) .nbind; 
. p1 .) .name ; 
.1+2. ) . nbind; 
. p2. ) . name  ; 
(-f+1-1  .ptjpe; 
.1.) . nbind ; 
.  f3.) . name ; 

eal(pa)  , op  1, doreal (pb) ) <doreal (pc)  ; 

nd; 

d  (le=3) )  then 

.f. ) .nbind  ; 
.pi. ) . name  ; 
.1+2.) . nbind; 
-p2. ) . name  ; 
(.f+1.).ptype; 
.1-2. ) . nbind; 


end;  (* 


return ;e 

lessthan 


. p3. ) . name ; 
.1.) .nbind  ; 
.pU. ) . name; 
(.1-1.) .ptype; 

:=eval (doreal (pa)  #op1 , doreal (pb)  )  < 
eval (doreal (pc) /Op2, doreal (pd) ) ; 
rd; 
*) 
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f uncti 
var  re 

begin 
if 
he 

en 
f: 
1: 
if 
he 


on  notegual (a,k:inte 
,le,fri;p1,r2'p3fp4: 

rpb/pc,pa: alpha;  op 1, 


ger) : boolean; 
integer; 
cp2:integer ; 


if 

he 


if 
he 


not  (a 
gin 
note 

d;         , 
=proc  ( 

=proc] 

(1re=t 

gin 

ifCCP 

begin 

end; 

p1:=P 

pa:=p 

p2:=p 

pb:=p 

noteg 

retur 

(.(re=1 

gin 

P1:  = 

pa:  = 

P2:  = 

pb:  = 

p3:  = 

pc:  = 

op1: 

note 

dore 

retu 

(Jre=3 

gin 

P1:  = 

pa:  = 

P2:  = 

pb:  = 

opl: 

p3:  = 

pc:  = 

note 

eval 

retu 


nalyze (a,re,le) )    then 
gual:=false;return; 


.}  . pointer 1; 


.a 

-a.)  .pointer2; 

)    and    (le=1)) 


then 

>2] 

2)1 


or 

then 


ar  (.  f .)  .ntype< 
r  (.1.)  .ntypeO 

notegual :=f alse ; return; 


ar  (.  f .)  .nbind; 
ar { . pi.)  .name; 
ar  I-  1.)  .nbind; 
ar  u  p2. ) . name; 
ual:  =  (doreal  (p 
n;  end; 
)    and    (le=3) ) 


par  f .  f. ) 

Par.f1. 

par    .1-2 

par  ;.r2. 

par    .1.) 

par  (.p3. 

=par  (.1- 

gual  := 

al  (pa)  Oeval  (d 

rn ;end; 

)    and    (le=1)) 


nbind 
.name 
)  .nbi 
.name 
nbind 
.name 
'1.)  .pt 


a)  Odoreal  (pb) )  ; 
then 

nd; 

* 
* 

ype; 

oreal(pb)  ,op 1 , doreal (pc) )  ; 

then 


par  (.f.) 
r  i  . 


en 
if 
he 


nbind 
par  ( .pi.) .name 
par  {  .1+2.) . nbi 
par(.t2.).name 
=par  (.f+1.)  .pt 
par  (.1.)  .nbind 
par(  •  f3  .)  .name 
qua!  :  = 
(doreal  (pa) 
rn; 


op 


nd; 
ype; 

1, doreal  (pb) )  Odoreal  (pc)  ; 


(j[re  =  3)  and  (le=3)  )  then 

gin 

p1  :  =  par  {.f. )  .  nbind  ; 
pa:=par  (.p1 .)  -name 
p2 :  =  par  T. t+2. )  .nbi 
pb : =par  ( .p2. )  .name 
op1 :  =par  (.f+1.)  .  pt 
p3  :  =  par  [ .  1-  2 . ) .  n  bi 
pc: =par  ( .p3.) .name 
£>4:  =  par  (-1.) .nbind 
pd: =par ( .p4. ) .name 
op 2: =par  (.1-1 .)  . ptype; 
notequa " 


nd; 

ype; 
nd; 


en 
end ;  ( 


return; 

d; 

*  notegual  *) 


=eval (dor 
eval (dor 


eal(pa) ,  op  1, doreal (pb) ) <> 
eal (pc) ,op2/doreal (pd) J  ; 
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f uncti 
var   re 

.pa,pbipc,p 
begin 

if 

be 


on  greateq 
,le,f  /1/PJ 


en 
f: 
1: 
if 
he 


ual (a,k:integer) :boolean; 
#p2.p3,p4: integer; 
alpha; op  1 , op2: integer ; 

ze(a,re,le))  then 

al:=f alse; return; 


if 

be 


if 
re 


not  (analy 
gin 

greategu 

=proc  (.a.) 
=procj.a. J 
(jre=t)  an 
gin 

if ((par  f 

begin 

grea 
end; 

p1:=par  f. 
pa: =par  • 
p2:=par  '. 
pb:=bar  {. 
greategua 
return; en 
(  (re=1 )  an 
gin 

p1  :  =  par  ' 
pa:=par 
p2:=par 
pb:=par  ,' 
p3:=par  ' 
pc  :=par 
op1: =par 
greategu 
doreal  (p 
return ;e 
(fre=3)  an 
gin 

p1 :=par  (.f.)  .nbind; 


. pointer  1; 
-pointer2; 
d  (le=1))  then 

.f.) . ntype<>2)  or 
.1.) .ntype<>2))  then 

tegual:= false; return; 

f .)  .nbind; 
p1.) .name; 
1.)  .nbind; 
p2. ) . name: 
1:=  (doreal  (pa)  >  =  doreal  (pb)  )  ; 

d'(le=3))  then 

.  f . ) . nbind ; 

-p1 .) .name ; 

.1-2. ) . nbind; 

-p2. ) . name  ; 

.1.) .nbind ; 

.p3.) .name  ; 

(.1-1.)  -ptype; 

al:  = 

a)>=eval  (doreal  (pb)  ,op1,  doreal  (pc)  )  ; 

nd; 

d  (le=1))  then 


en 
if 
te 


pa:=par 
p2:=par  ' 
pb:=par ( 
op1 : =par 
p3:  =  par  ( 
pc:=par ( 
greategu 
eval  (dor 
return; 

(j[re  =  3) 

gin 

p1  :  =  par  [ 
pa: =par 
p2 :=par 
pb:=par  ' 
op1 : =par 
p3 : =par 
pc: =par 
p»4  :  =  par 
pd: =par 
op2: =paf 
greategu 

return  ;e 
end;  (*  greategu 


,p1. ) .name  ; 

-I>2.)  .nbind; 

.p2.) .name ; 

(.f+1.)  .ptype; 

.1. ) . nbind ; 

.  p3. ) . name ; 

al:  = 

eal  (pa)  ,op  1,  doreal  (pb)  )  >=doreal  (pc)  ; 


and  (le=3) )  then 


.f. 

It* 

.p2 

<i-f 
:L3 

.p4 

al: 
e 

nd; 
al 


) . nbind ; 

. ) .name ; 

2.) . nbind; 

. ) . name ; 

+1.) -Ptype; 

2. ) . nbina; 

. ) .name ; 

) .nbind ; 

. ) . name ; 

-1.)  -ptype; 

=eval  (doreal  (pa)  ,op1,  doreal  (pb)  )  >: 

val (doreal (pc) ,op2, doreal (pd) ) ; 

*) 
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function  lessegu 
var   re,le,f,l#p1 
.pa,pb,pc,pd: 
begin 

if   not  (analy 
begin 

lessegua 
end; 

f  :=proc  (.a. ) 
l:=proc J. a. ) 
if(1[re  =  t)  an 
begin 

if  ((par  ( 
.  ,_  (par  (. 
begin 

less 
retu 
end; 

p1:=par  (. 
pa: =par i . 
p2: =par  . 
pb:=par  (. 
lessegual 
return; en 
if  (  (re  =  1)  an 
begin 

p1 :=par 
pa:=par 
p2:=par 
pb: =par 
p3: =par 
pc:  =  par  ( 
op1 : =par 
lessegua 
doreal  (p 
return  ;e 
if  ( (re=3)  an 
begin 

p1 :=par  ' 
pa:=par 
p2:=par  , 
pb  :  =  par 
opl : =par 
p3 :=par  [ 
pc:  =  par  { 
lessegua 
eval  (dor 
return ;e 
if  ( j[re=3)  an 
begin 

p1 :=par  ' 
pa:=par 
p2:=par  ' 
pb:=par  ' 
opl : =par 
p3:  =  par  ,; 
pc: =par 
p4:=par  \ 
pd:=par 
op2: =par 
lessegua 

return;e 
end;  (*  lessegua 


al(a,  kcinteger)  :  boolean; 
#p2/p3#pU: integer; 
alpha; op  1, op 2: integer ; 

ze(a,re,le))  then 

1:= false; return; 

•  pointer  1 ; 
. tointer2; 
d  (le=1))  then 

.f.) .ntype<>2)  or 
1.) . ntype<>2) )  then 

egual:=f alse; 
rn; 

f .)  .nbind; 
p1. )  .  name; 
1-)  .nbind; 
p2.) .name; 
:  =  (doreal (pa)  <=doreal  (pb) )  ; 

d*(le=3))  then 


.f. ) . nbind ; 
.  d.  )  .  name; 

) . nbind; 

. name ; 

nbind ; 

.name ; 
1.) .ptype; 


V-i 

.P2. 

hi- 

a)  <=eval  (doreal  (pb)  ,op1, doreal  (pc)  ) 

na; 

d  (le=1))  then 

.f. ) .nbind; 

.r1. ) .name  ; 

.1+2.) .nbind; 

.p2.) . name ; 

(.f+1.) .ptype; 

.1.) . ncind ; 

.  p3.)  .name ; 

1:  = 

eal  (pa)  ,  op  1,  doreal  (pb) )  <  =  doreal  (pc) 

n  d  * 

d  Ue=3)  )  then 

.  f . ) . nbind ; 
-p1- ) . name ; 
.1+2.)  .nbind; 
.  p2. ) .name; 

(.f+\.).  Ptype; 
.1-2. )  .  nbind: 


.  p3. ) . name; 
.1.)  .nbind  ; 


.p4. ) . name 
l:=eva 

Ed 


ype. 


=eval (doreal (pa) , op  1 .doreal (pb) )  <  = 
eval (doreal (pc) ,op2, doreal (pa) ) ; 
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f uncti 
var  re 

begin 
if 
he 


on  greater  (a, k:integer) :boolean; 

,le,frl,p1  ,p2.p3,p4: integer; 

i pb, pc,pa : alpha ; op  1 , op2 : integer ; 


en< 

f: 

1: 

if 

he 


not  (analy 
igin 

greater: 
id; 

=  proc  (-a.) 
=proc j.a.) 
({re=T)  an 
gin 

if ( (par  ( 
(par  (.1. )  .ntypeO 
then 
begin 

grea 
retu 
end; 

p1:=par  f. 
pa:=pan  . 
p2:=par  . 
pb:=par  (. 
greater: = 
return; en 
if  ( (re  =  1 )  an 
hegin 

p1 :  =  par  ( 
pa:=par i 
p2 :=par 
pb:=par 
p3:=par  ' 
pc:=par  ' 
op1 : =par 
greater: 
doreal  (p 
return  ;  e 
if((re=3)    an 
tegm 

p1 :=par 
pa: =par 
p2:=par 
pb:=par 
opl: =paf 
p3  :=par  f 
pc: =par ( 
greater: 
eval  (dor 
return ; e 
if  ( {re=3)    an 
begin 

p1 :=par  ' 
pa:  =  par 
p2: =par  i 
pb:=par  ' 
opl : =par 
pj :  =  par  ( 
pc: =par i 
p4:=par  i| 
pd:=par 
op2: =par 
greater: 

return;e 
end;     (*   greater 


ze(a,re,le))  then 

=false;return; 

.jointerl ; 
-pointer2 ; 
d  (le=1))  then 

.f.)  .ntype<>2) 
2)) 


cr 


ter:=fal 
rn; 


se; 


f .) -nbind; 

<5  * 

e; 

pa 


pi. ) .  nam* 

1.)  .nbin< 

p2. ) . nam 

(doreal ( 

d' (le=3) 


:fi> 

.1-2 
.r2. 

.1-) 
.p3- 

(.1- 


noi 
.na 
).n 
.  na 
nbi 
.na 
1.)  . 


a) >eval  ( 

nd; 

d  (le=1) 

.f.) .nbi 
-c1.)  .na 
.1  +  2.)  .n 
-c2.) .na 
(.f+1.)  . 
.1.)  .nbi 
.  p3.)  . na 

eal(pa)  , 

nd; 

d  (le=3) 


) 

nd 
me 
bi 
me 
nd 
me 
Pt 

do 


) >doreal  (pb) )  ; 
then 

nd; 


.p2. 


nbi 
.  na 
).n 
.  na 

)'.n 

.  na 
nbi 
.  na 

3-.1 


=eval (do 
eval  (d 
Ed; 
*) 


) 

nd 
me 
bi 
me 

nd 
me 

op 

) 

nd 
me 
bi 
me 
t 
i 
me 
nd 
me 
Pt 
re 
or 


E 


ype; 

real(pb)  #op1 , doreal  (pc) )  ; 

then 

• 
• 

nd; 

ype; 

i 
t 

1,  doreal  (pb)  )  >doreal  (pc)  ; 
then 


nd; 

ype 
nd; 


ype; 

al  (pa) #op1 .doreal (pb)  ) > 

eal  (pc) #op2, doreal (pd) )  ; 
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function  e 

var  re,le, 

,pafpb# 

begin 

if  not 
teg  in 

eg 
end ; 
f :=pro 
l:=pro 
if  (tre 
tegin 

P1: 

pa: 

kz 

pb: 

if  ( 

the 

els 

if  ( 

the 

els 

ret 

if { {re 

tegin 

P1 

pb 

P3 
pc 
op 
eg 

re 
if  (ire 

team 
P1 

pb 
op 

PJ 

pc 
eg 


re 
if  ({re 
begin 

P1 

p2 

pb 
op 

PJ 
pc 

h 

pd 
op 

eg 


gual  (a 

f,l,§1 

pc,pd; 

(analy 

ual:=f 

cf.a.J 
c (.a.) 
=  T)  an 

=par 
=par 
=par 
=  par 

(par 
n  egua 
e 

(par  (. 
n  egua 
e  egua 
urn; en 
=  1)  an 

:=par  | 
:  =  par 
:  =  par 
:  =par 
:  =  par 
:=par  ' 
1:=par 
ual:=d 
=e 
turn;e 
=  3)  an 

:=par  ' 
:=par 
:  =  par  / 
:=par  , 
1 : =par 
:  =  par  { 
:=par  ( 
ua  1 :  =  e 
=  d 
turn  ;e 
=3)  an 

:=par  ; 
:=par 
:=par 
:=par  ' 
1 : =par 
:=par  ' 
:=par 
:=par 
:=par . 
2: =par 
ual:=e 


,k:integer) : boolean; 
/f2/p3r  p4: integer; 
alpha; op  1, op2: integer; 

ze(a,re,le))  then 

alse;return; 

-pointer  1 ; 
,pointer2; 
d    (le=1))    then 

f .)  .  nbind; 
p1.)  .name; 
1.)  .nbind; 


2. ) . name; 
,ntype= 
l:=(doreal  (pa)=doreal 

f-).ntype=3)    and    (par  (.1.)  .  ntype=3)  ) 
■pa=pb* 
alse; 


.)  ,ntype=2)    and    (par  (.1.) .  ntype=2)  ) 

'  (Pb)) 

31     ar.i\     Inar 

l:=pa=pb) 


<3; 

d    (le=3) )     then 


•fi'. 


nbind ; 


return : e 
end;     (*   egual   *) 


. name  ; 
) . nbind; 
, . name ; 
) .nbind ; 
.p3. ) . name ; 
(-1-1.)  -ptype; 
oreal  (pa) 

val (doreal (pb) ,op1 , doreal  (pc) )  ; 
nd; 
d    (le=1))     then 

.  f . ) . nbind ; 

-p1.) . name ; 

.1+2.) . nbind; 

.p2. ) . name  ; 

(•f+T-lt  Ptype; 

.1.) . nbind ; 

.p3. ) . name ; 

val  (doreal  (pa) ,  opl , doreal  (pb)  ) 

creal(pc) ; 

nd ; 

d  (le=3) )  then 

.f . ) . nbind  ; 
.pi. ) . name  ; 
.1+2.) .nbind; 
. p2. ) . name  ; 

(-f+i.)  -ptype; 

.1-2. )  .  nbina; 

-p3.) . name ; 

.1.) . nbind ; 

.  f 4. ) . name ; 

(.1-1.)  .ptype; 

val  (doreal  (pa)  ,op1,  doreal  (pb)  )  = 

eval (doreal (pc) #op2, doreal (pd)  )  ; 
nd; 
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function  okay(a: 
var  pb#pe,i:mte 
begin 

if  tempt y  th 
if  tempty  th 
pb:  =proc(.  gg 
pe:=proc  i'.  gg 
pb:  =  proc  -  pfi 
ne:=proc (.pe 
for  i:=pb  to 
hegin 

if  (i=0) 
if  (par  (. 
begin 

okay 
retu 
end; 
end; 

ckay :=true ; 
end;     (*okay*) 
function   first  (a 
begin 

first: =proc { 
end; 

function  last (a: 
begin 

last:=proc (. 
end;  (*last*) 


integer) : boolean; 
ger; 

en  okay:=true; 
en  return; 
.) . bbegin; 
-j  -bend: 
.} -  pointer  1; 
.)  .pointer 2; 
pe  do 

then  continue: 
i.).ntype=0)  then 

:=false; 
rn; 


rinteger)  : integer; 
.a.) . now ; 
integer)  :integer; 
a.)  .ae; 
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function  matchfa ri:integer) : boolean; 

var  pb eg, pend,  Iin:1,  lim2,  asta,  af  in,  call:  integer ; 

procedure  matchit  (asta, pbeg,pend:integer) ; 

var  i, j:integer; 

begin 

j:=pred (asta) ; 

for  i:=pbeg  xc  pend 

begin 

if  (i=0) 


do 
then  continue; 


j:=succ  M) ; 

if  (i=0)  then  continue; 

parl-i.) .rmatch 

:=  ( (par  (.i.)  -ntype=par  (.  j.)  .  ntype) 

(par  (.  i.  )  .nbind=par  (.  j. )  .nbind) )  ; 


and 


end; 
end;  (*matchit*) 

procedure  bindprcc (asta, pbeg,  pend:integer) 
var  i,j,k: integer ; 
begin 

j:=pred (asta) ; 

for  i;=pbeg  tc  pend  do 

begin 

if  (i=0)  then  continue; 

j:=succ  M) ; 

if  (j=0)  then  continue: 

if  (par  (.  i.)  .  ntype=0)  then 

begin 

par  f.i.)  .  ntype  :  =  par(.j.)  .ntype; 

par  -l.) .nbind :=par 

par  (.i. ) . who:  =  i; 

for  k:=pbeg  to  pend 

begin 

if  (k=0)  then  continue; 
if  par  f. k. ) -ntype>0)  then  continue; 
if  (par  (.  k. )  .  nameOpar  ( .i.)  .name) 
then  continue; 

k. )  .  ntype:  =par  (.  i.)  .  ntype; 
, nbind:  =par  (.  i. )  .nbind; 
,who:=par  (.i. )  .who; 


(.j.)  .nbind; 


do 


end; 
end; 
end; 
end;  (*bindproc*) 


par 
par 
par 


•  k. 

•  k. 
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_ 

function  checkit: boolean; 

var  i, j:integer;  bool:boolean; 

t€gin 

hool:=true; 

for  i:=pbeg  to  pend  do 

begin 

if  (i=0)  then  continue; 

bool:=(bool  and  par  (.1. )  .nmatch)  ; 

end: 

if  Bool  then 

begin 

checkit: =true; 

return; 

end 

else  checkit  :=false; 

for  i: =pbeg  tc  pend  do 

begin 

if  (i=0)  then  continue; 

if  (par  (.  i.)  .ptypeOI)  then  continue; 
if  (par  (.  i.j .  whoOi)  then  continue; 

par 

.1.)  .ctype:=0; 

par 

.1. ) .nbind:=0: 

-i.)  .rmatch: =f alse; 

par 

end; 

for  i:=asta  tc  afin  do 

begin 

if  1 

i=0)  then  continue; 

par  (.  i.)  .  ptypeOI)  then  continue; 

par  (.  i.)  .  whoOi)  then  continue; 

if  1 

if  \ 

par'f.i.)  .rtype:=0; 

par  (.1. } .nbind:=0 ; 
par(-i.)  .rmatch: =f alse; 

end; 

end;  (*  checkit  *) 

■   -    .           .....       .__    _,   ...  ,j 

119 


procedure 
yar.i, j,rb 
begin 

j:=suc 

if  (J>P 

rbegm 

j:-gg; 

j:=pro 

rena:= 

for  i: 

begin 

if 

if 

if 

fo 

be 


rulebi 
egin,r 

ci(aU 
x)  the 

:=proc 

c(.j-) 
proc  (. 
=pbeg 


i=0) 
par  j. 
par  (. 

r  j:=r 

gin 

ifk 

par  ; 
par  , 
par  i, 


nd: 
end:integer; 


n  return; 

(.  j.) -pointerl ; 


.bend; 

i.)  .pointer2; 

tc  pend  do 


then  continue: 
i.)  .ntype=0)  then  continue; 
i.).ptype<>1)  then  continue; 
begin  to  rend  do 

=0)  then  continue; 
ar  (. j.)  .ptype<>1)  then  continue; 
ar  (. j.)  -  nameOpar  (-i- )  .name) 
en  continue; 

.  j. ) .ntype:  =  par (.i.)  .ntype; 
_  (.i. )  .  nbmd; 


end; 
end; 
end;  (*rulebind*) 


j.)  .  nbmd  :  =  par 

j.)  .who:=par  (-i.)  .who 
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begin 

af in:=0 ; 

asta:=0; 

pbeg:=proc i 

pena:=proc 

call:=proc 

if  (call=0) 

begin 

if   not(aenipty) 

begin 

asta  :=alt 
af in:=alt 

end 
end 
else 
begin 


. a. J . pointerl ; 
.a.) . pointer2; 
.  a.)  .callee ; 
then 


then 


(.  i.)  .pointerl ; 
(.i.) .pointer2; 


asta :  =  proc (-call.)  -pointerl; 
afin:=proc (-call.) ,pointer2; 
end; 
if  (pend=pbeg)  then 

liml :=1 
else 

liml :=pend-pbeg+1 ; 
if  (afin=asta)  then 

lim2:=1 
else 

lim2 :=af in-asta+ 1 : 
if  ((pbeg=0)  and  (pend=0) )  then 

liml : =0: 
if  ( (asta=0)  and  (afin=0) )  then 

Iim2:=0; 
if  (Iim1<>lim2)  then 
begin 

match: =f alse; 
return; 

if  (!ii.ni1  =  0)  and  (lim2  =  0))  then 
begin 

match :=true; 

return; 
end: 

bindproc (asta ,£beg,pend} ; 
bindproc  (pbeg,asta,af in)  ; 


matchit  (a'sta^  fteg,  pend 

„eck 
begin 


(asta,  jbeg,  pend)  ; 
matchit (pbeg. asta, af in) ; 
then 


{pbe 
if  checkit 


match :=tr ue; 
rulebind; 
return; 
end; 

match:=f alse ; 
end;  (*  match  *) 
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function  f indit  (p:alpha)  :bcolean; 

var  i:integer; 

begin 

findit:=false; 
for  i:=1  to  ex  do 
tegin 

if  (p=cpt  (.i.) )  then 
begin 

findit:=true; 
return; 
end; 
end; 
end; 

procedure  print; 

var  i,k,kj, pbeg, pend,pb, pe: integer ; 
begin 

if  tempty  then  return; 
cx:  =  1;  cotf-cx.):^  • 
pb:=proc7. gg.)  . bbegin 
pe:=proc (. gg .j .bend; 
pbeg:=proc7. pc.)  .  pointer  1 ; 
pend:=proc (. pe.) .pointer2; 
if  (pena=0)  tfcen 
begin 

kj:=0: 
repeat 

k j:=succ  (kj)  ; 

pend:=proc (.pe-k j. ) .pointer2; 
until    (pend>0)  ; 
end; 

for  i:=pbeg    tc   pend    do 
tegin 

if  (i=0)     then  continue; 

if  (par  (.  i.) .  ptype<>1)    then   continue; 

k:=par  ?.  i.J.  nbind; 

if  {not  (f indit (par (.i.) .name)  ) )  then 

begin 


end ; 


end; 


end; 


message (str  (par  f.i. )  .name)  { \ 

str  ( ■  =  ')  |  |  str  (par  (.k.)  .name)  ,0)  ; 

cx:  =  succ  (ex)  ; 

cpt  (  .ex.)  :=par  (.i.) . name; 
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function  accept (function  name (a. j:integer) 

: boolean;a, j:integer) :boolean; 
var  iiinteger; 
begin 

for  i:=first(a)  to  last  (a)  do 
begin 

if  (first  (a}>last  (a) )  then  leave; 

if  (name  (a, 1) )  then 

begin 

proc  (.a.)  .now:=succ  (i)  ; 
accept:=true; 
return; 
end; 
end; 

accept:=false; 
resetit  (a)  ; 
end;  (*  accept  *) 
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function  wp_fuel1(a 
begin 

wp_fuel1 :=match 
end; 

function  wp_fuel2(a 
begin 

wp_f uel2 : =match 
end ; 

function  wp__fuel3(a 
begin 

wp_fue!3  :  =  match 
end; 

function  wp  fuelU  (a 
begin 

wp_fuel4 :=match 
end; 

function  wp_fuel5  (a 
begin 

wp_fuel5 :=match 
end; 

function  wp_fuel6  (a 
begin 

wp_fue 16:= match 
end ; 

function  wp_fuel7(a 
begin 

wp_fuel7 :=match 
end; 

function   wp_fuel8(a 
begin 

wp_f uel8 :=match 
end; 

function  wp_f uel9  (a 
begin 

wp_fuel9 :=ma tch 
end; 


#i 

rinteger 

i : boolean; 

(a, 

.i)  ; 

#i< 

:integer; 

i : boolean ; 

(a. 

ri)  ; 

#i- 

linteger 

i : boolean ; 

(a, 

-i) ; 

,i 

rinteger, 

i : boolean; 

(a, 

ri)  ; 

ri- 

:integer 

i : boolean; 

(a 

ri)  ; 

ri: 

:  integer] 

1 ; boolean ; 

(a, 

ri)  ; 

i  i- 

:integer; 

i ; boolean ; 

(a. 

ri)  ; 

t  i< 

:integeri 

\ : boolean; 

(a, 

ri)  ; 

#i« 

:integer 

i : boolean ; 

(a. 

ri)  ; 
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function  wp_ammo10(a 
begin 

wp_ammo 1 0 : = mate h 
end; 

function  wp_ammo1 1  (a 
begin 

wp_ammo1  1:=match 
end; 

function  wp_ammo12(a 
begin 

wp_ammo1 2:=match 
end; 

function  wp_ammo13(a 
begin 

wp_ammo1 3:= match 
end; 

function  wp_ammo14(a 
begin 

wp   ammol 4:=match 
end;      "" 

function   wp_ammo15(a 
begin 

wp_ammo1 5: =match 
end; 

function  wp_ammo16(a 
begin 

wp_ammo1 6: =match 
end; 

function  wp_ammo17(a 
begin 

wp_ammo17:=match 
end; 

function   wp_ammo18(a 
begin 

wp_ammo1 8:=match 
end; 

function  wp_ammo19(a 
begin 

wp_ammo  1  9:  =m  atch 
end; 

function  wp_ammo20(a 
begin 

wp_ammo20: =match 
end; 


#ij 

integer] 

1 : boolean; 

(a. 

-i); 

#i« 

:integer, 

i : boolean; 

(a, 

-i); 

rij 

integer 

i :boolean; 

(a, 

.i); 

/i: 

integer; 

: boolean; 

(a, 

-i) ; 

r  i! 

integer; 

1 : boolean; 

(a, 

rDS 

i  i« 

[integer, 

1 : boolean; 

(a, 

ri)  ; 

#ij 

integer; 

: boolean; 

(a, 

-i); 

i  i« 

integer] 

: boolean; 

(a, 

i) ; 

,i: 

integer, 

: boolean; 

(a, 

i) ; 

#ii 

integer, 

\  : boolean; 

(a< 

-i)  ; 

#ii 

integer] 

1 : boolean; 

(a, 

-i) ; 
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function  wp   ammo21(a, 

-i: 

integer 

■ 

i : boolean; 

begin 

wp   ammo21:=match 

[a, 

ri)  ; 

end; 

function  wp   ammo22(aJ 

-i: 

.integer; 

I  rboolean; 

begin 

wp   ammo22: =match 

(a, 

a); 

end; 

function  wp   ammo23(aJ 

-i: 

integer; 

I : boolean; 

begin 

wp   ammo23;=match 

[a, 

i); 

end; 

function   wp    ammo2U(a, 

i: 

integer, 

i : boolean; 

begin 

wp    ammo24:=match 

[a, 

-i); 

end; 

function   wp   ammo25(a, 

i: 

•integer, 

i : boolean; 

begin 

wp   ammo25: =match 

[a, 

i) ; 

end; 

function  wp   ammo26(a4 

ri: 

integer] 

: boolean; 

begin 

wp   ammo26: =match 

[ai 

ri)  ; 

end; 

function   wp    ammo27(a, 

ri: 

integer 

I :boolean; 

begin 

wp   ammo27:=match 

[a, 

i) ; 

end;     . 

function  wp    ammo28(a, 

i: 

integer, 

i : boolean; 

begin 

wp   ammo28:=match 

[a, 

i) ; 

end; 

function  wp   ammo29(a, 

,i: 

integer, 

i : boolean; 

begin 

wp    ammo2  9: =match 

(a, 

ri)  ; 

end; 

function  wp    ammo3C(al 

-i: 

integer; 

: boolean; 

begin 

wp    ammo30: =match 

[a, 

-i) ; 

end; 

function  wp   ammo21(a, 

,i: 

integer 

I : boolean; 

begin 

wp   ammo3 1 :=match 

(a, 

i); 

end; 
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function  wp_num32(a 
begin 

vp_num32 :=match 
end; 

function  wp_num33(a 
begin 

wp_num33 :=match 
end; 

function  wp_num34(a 
begin 

wp_num3U :=match 
end; 

function  wp_num35  (a 
begin 

wp_num  35 :  =  match 
end; 

function  wp_num36(a 
begin 

wp_num36 :=match 
end; 

function  wp_num37  (a 
begin 

wp_num37 :=match 
end; 

function   wp_num38{a 
begin 

wp_num  38:  =  match 
end; 

function  wp_num3S  (a 
begin 

wp_num 39:= match 
end; 

function  wp_num40(a 
begin 

wp    num40 :=ma tch 
end;      ~ 

function   wp_num41{a 
begin 

wp_num41 :=match 
end; 

function  wp_num4  2(a 
begin 

wp_num42:=match 
end; 

function  wp_numU3(a 
begin 

wp_num43:=match 
end; 

function  wp_num44{a 
begin 

wp_num44  :  =  match 
eDd; 


ri: 

:integer; 

\ : boolean 

(a, 

ri)  ; 

ri< 

:integer, 

| : boolean 

(aj 

ri)  ; 

,i' 

:integer, 

i : boolean 

(a< 

ri)  ; 

fii 

.integer] 

1 : boolean 

(a, 

ri)  ; 

#i; 

integer; 

: boolean 

(a. 

ri)  ; 

,i 

:integeri 

i : boolean 

(a, 

ri)  ; 

i  i: 

linteger, 

i : boolean 

(ai 

ri)  ; 

i  i: 

:integer; 

: boolean 

(a, 

ri)  ; 

/i: 

:integer; 

: boolean 

(a( 

ri)  ; 

,i: 

:integer] 

1 : boolean 

(a, 

ri)  ; 

,  i 

:integer. 

i : boolean 

(a, 

ri)  ; 

#i: 

:  integer; 

1 : boolean 

(a, 

ri)  ; 

/i- 

:in  teger] 

I : boolean 

(a, 

ri)  ; 
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function 

fcegin 

case 

1:  wp 

2:wp 

3:  wp 

4:vp 

5:wp" 

6:wp 

7:wp" 

8:wp" 

9:wp" 

end;" 

end; 


i  of 
fuel: 
"fuel: 
fuel: 
"fuel: 
'fuel: 
"fuel: 
"fuel: 
'fuel: 
fuel: 


:wp_fuel1 
:wp_fuel2 
=wp  fuel3 
:vp  fuelU 
:wp~fuel5 
:vp  fuel6 
:v|~f  uel7 
:wp  fuel8 
:wp~fuel9 
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f unctic 

begin 
cas 
10: 
1: 

12: 
13: 
14: 
15: 
16: 
17: 
!8: 
19: 
20: 
21  : 
22: 
23: 
24: 
25: 
26: 
27: 
28: 
29: 
30: 
31  : 
end 
end; 


n  wp_ammo  (a,i; 


e  i   o 

wp_am 
wp_am 
wp_am 
wp_am 
wp_am 
wp_am 
wp_am 
wp_ai 
wp_am 
wp_am 
wp_am 
wp  am 
wp_am 
wp_am 
wp_am 
wp_am 
wp_am 
wp_am 
wp_am 
wp_am 
wp~am 
wp_am 


f 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 

mo 


:*F_ 

*F_ 

:*F_ 

wp_ 

*F_ 

:*F_ 

*P_ 

*F_ 

«F_ 

*F_ 

:*P_ 

*F_ 

:«F_ 

vip_ 

«F_ 
*F_ 
«F_ 
«F_ 
:«F_ 
*F_ 
*F_ 
«F_ 


ammol 0 
ammo  1  1 
ammol 2 
ammol 3 
ammol 4 
ammol 5 
ammo  1  6 
ammo17 
ammol 8 
ammol 9 
aramo20 
ammo21 
ammo22 
ammo23 
ammo24 
ammo25 
ammo26 
ammo27 
ammo28 
ammo29 
ammo30 
ammo3  1 
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f uncti 
fcegin 
ca 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
en 
end; 


se  i  of 

:wp_num: 
:wp_num: 

:wp_num: 
: wp_num: 

:wp_num: 

: wp_num: 

:wp_num: 

:wp_num: 
:  wp_num: 
:wp_num: 
:wp_nam: 
:  vp_num: 
:wp  num:: 

a; 


=wp_num32 
:vp_num33 
:wp  num34 
:wp~num35 
:wp_num36 
:vp_num37 
:wp_num38 
:wp_num39 
:wp_num40 
:vp_num41 
:wp_nura42 
:wp_num43 
:wp_num44 
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function  query  (a  ,i:integer) :boolean; 

label  46, *7, 48,45, 99; 

begin 

if  resatisf y  then  begin  break  (48);  goto  48;  end; 
46:if  (accept  (wp_fuel, 46, a) )  then  goto  47; 

goto  99; 
47:if  (accept  (wp  ammo, 47.  a))  then  goto  48; 
if  not  (possible (46) )  then  goto  99; 
break  (46)  ; 
goto   46; 
48:if  (accept (wp  num. 48, a))  then  goto  49; 
if  not  (possible (47) )  then  goto  99; 
break  (47)  ; 
goto   47; 
49:if  okay (a)  then 
begin 

query  :=true; 
return; 
end; 
99  :guery :=  false 
end; 
begin 

lnum:=0; 

putfiles : 

messaged  execution  begins. ...', 0)  ; 

r  e  sa  ti  s  f  y :  =  f  a  Is  e ; 

sign:=f ; * ; 

while  (sign=,;»)  do 

begin 

if  guery(gg,1)  then 
begin 

message(*  yes'.O); 

print;  termin {term) ; 

readln (term, sign)  ;   close  (term)  ; 

if  (sign=* ; »)     then 

resatisf y:=true 
else    resatisf y :=false ; 
if(lrum>50)     then 
begin 

lrum:=0 ; 

writeln (listing, '  1'  :  1)  ; 
end; 
if  resatisf y  then 

cms (' clrscrn' ,ret)  ; 
if  resatisfy  then 

message(*  resatisfying  goal-.-.'.O) 
else  messaged  execution  ends- . .  .  •  ,0)  ; 
continue; 
end; 

message fstr { f  nof),0); 
message ('  execution  ends-  . . .  ' ,  0)  ; 
halt ; 
end; 
end.  (*  main  *) 
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APPENDIX  D 
PfiOCEDDBE  TABLE 


1. 

1   1 

2. 

2   1 

•3 

— ■  • 

3   1 

4. 

4   1 

c 

— •  • 

5   1 

6. 

6   1 

7. 

7   1 

8. 

8   1 

9. 

9   1 

10. 

10   1 

11. 

11   1 

12. 

12   1 

13. 

13   1 

14. 

14   1 

15. 

15   1 

16. 

16   1 

17. 

17   1 

18. 

18   1 

19. 

19   1 

2C. 

20   1 

21. 

21   1 

22. 

22   1 

23. 

23   1 

24. 

24   1 

25. 

25   1 

26. 

26   1 

27. 

27   1 

28. 

28   1 

29. 

29   1 

30. 

30   1 

31. 

31   1 

32. 

32   1 

-  -3 

33   1 

34. 

34   1 

35. 

35   1 

36. 

36   1 

37. 

37   1 

38. 

38   1 

39. 

39   1 

40. 

40   1 

41. 

41   1 

42. 

m     1 

43. 

43   1 

44. 

44   1 

45. 

45   1 

46. 

45   3 

47. 

45  16 

48. 

45  29 

wp_fuel 

vp_f uel 

wp_f uel 

wp_f uel 

wp_f uel 

wp_f uel 

wp_f uel 

wp_f uel 

wp_f uel 

wp_ammc 

wp_ammo 

wp__ammc 

vp_ammc 

wp_ammo 

wp_ammc 

wp_ammo 

wp_ammc 

wp_ammo 

wp_ammo 

wp_ammc 

wp_ammo 

wp_ammc 

wp_ammc 

wp_ammo 

wp_ammc 

wp_ammo 

wp_ammc 

wp_ammc 

wp_ammo 

wp_aramc 

wp  ammo 

wp~num 

vp_num 

wp_num 

wp_num 

wp_num 

wp_num 

wp~num 

wp_num 

wp_num 

wp_num 

wp_num 

wp_num 

wp_num 

query 

wp_f uel 

wp_ammo 

wp_num 


5  0 

1 

5 

0 

0 

0 

0 

1  1 

5  0 

6 

10 

0 

0 

0 

0 

1  1 

5  0 

11 

15 

0 

0 

0 

0 

1  1 

5  0 

16 

20 

0 

0 

0 

0 

1  1 

5  0 

21 

25 

0 

0 

0 

0 

1  1 

5  0 

26 

30 

0 

0 

0 

0 

1  1 

5  0 

31 

35 

0 

0 

0 

0 

1  1 

5  0 

36 

40 

0 

0 

0 

0 

1  1 

5  0 

41 

45 

0 

0 

0 

0 

1  1 

5  0 

46 

50 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

51 

55 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

56 

60 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

61 

65 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

66 

70 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

71 

75 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

76 

80 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

81 

85 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

86 

90 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

91 

95 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

96 

100 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

101 

105 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

106 

110 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

111 

115 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

116 

120 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

121 

125 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

126 

130 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

131 

135 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

136 

140 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

141 

145 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

146 

150 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

151 

155 

0 

0 

0 

0 

1  1 

1   1  2 

5  0 

156 

160 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

161 

165 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

166 

170 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

171 

175 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

176 

180 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

181 

185 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

186 

190 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

191 

195 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

196 

200 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

201 

205 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

20  6 

210 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

211 

215 

0 

0 

0 

0 

1  1 

1   1  3 

5  0 

216 

220 

0 

0 

0 

0 

1  1 

1   1  3 

4  0 

0 

0 

46 

48 

0 

0 

0  1 

1   1  4 

5  1 

221 

225 

0 

0 

1 

9 

0  1 

9   1  1 

5  2 

226 

230 

0 

0 

10 

31 

010 

31  10  2 

5  3 

231 

235 

0 

0 

32 

44 

032 

44  32  3 
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APPENDIX  E 
PABAHETEBS  TABLE 


1. 

3 

tk 

3 

1 

3 

1 

2. 

5 

1 

2 

2 

2 

2 

3. 

7 

f  1 

3 

3 

3 

3 

4. 

9 

5CC 

2 

4 

2 

4 

5. 

11 

50C0 

2 

5 

2 

5 

6. 

2 

3 

f  ac 

3 

1 

2 

3 

6 

7. 

2 

5 

1 

2 

2 

2 

2 

2 

8. 

2 

7 

f  2 

3 

3 

2 

3 

8 

9. 

2 

9 

800 

2 

4 

2 

2 

9 

10. 

2 

11 

40C0 

2 

5 

2 

2 

10 

11. 

3 

3 

atgm 

3 

1 

3 

3 

11 

12. 

3 

5 

1 

2 

2 

3 

2 

2 
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36 
37 
38 
39 
40 
41 
42 
43 
44 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
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APPENDIX  G 
SA3PLE  PBOGRAM  1 


vp_f uel 

wp_f uel 

wp_£uel 

wp_fuel 

wp_fuel 

wp_f uel 

wp_f uel 

wp_f uel 

wp_f uel 

wp_ammo 

wp_annno 

wp_ammo 

wp_ammo 

wp_animo 

wp_ammo 

wp__animo 

wp_ammo 

wp_ammo 

wp_animo 

wp_ammo 

wp_aniino 

wp_ammo 

wp_ammo 

vp_ammo 

wp_ammo 

wp_ammo 

wp_ammo 

wp_ammo 

wp_ammo 

wp_ammo 

wp_ammo 

vp_num  ' 

wp_num 

wp_num 

wp_num 

wp_num 

wp_num 

wp_num  ij 

wp_num 

wp_num 

wp_num  ' 

wp_num 

wp_num 

wp_num 

query:- 


I 

y 
V 


500,5000)  . 

800,4000'  . 

400,3000'.  . 

250,1000'  . 
,600,5500) . 
,900,6000) . 
,500,3500"  . 
,350,2000'i  . 
.450,3800) . 

,,a2)  . 
'al 
,a6 


wp_ammo (h 
wp_num (he 


3; 

el 
el 
lc 


;48j      . 

Lo,WTYPE,EFTYPE.WFCAP,WACAP)  , 
Lo.WTYPE-LX.IY.WATYPE)  , 
WTYPE,LX,LY,WNIJ[1)  . 
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APPENDIX  H 
OUTPUT  OF  PBOGEAM  1 


EXECUTION 

BEGINS.... 

■ ~  ■■ - "  -- ■  ■■■-  — 

7€S 

WTYPE 

s 

1 

WFTYPE 

.55 

f2 

WICAP 

= 

250 

WACAP 

= 

1000 

LX 

= 

2 

lit 

= 

2 

WATYPE 

= 

a4 

WKOH 

3S 

8 

EESATISFYING 

GOAL.  .  . 

V€S 

WTYPE 

= 

1 

WITYPE 

= 

f2 

WICAP 

= 

250 

WACAP 

= 

1000 

IX 

= 

2 

IY 

= 

2 

WAIYPE 

= 

a3 

WNUM 

— 

8 

EESATISFYING 

GOAI 

V€S 

WTYPE 

35 

2 

WFTYPE 

= 

f3 

WFCAP 

= 

350 

WACAP 

= 

2000 

IX 

= 

3 

IY 

= 

3 

WATYPE 

= 

a6 

HKUH 

= 

12 

EESATISFYING 

GOAL... 

V€S 

WTYPE 

= 

2 

WFTYPE 

= 

f3 

WICAP 

= 

350 

WACAP 

= 

2000 

IX 

= 

3 

IY 

= 

3 

WATYPE 

= 

a3 

WNUM 

= 

12 

EISATISFYTNG 

GOAI 

nc 

EXECUTION 

ENDS 

.,  . 
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APPENDIX  I 
SAMPLE  PBOGBAM  2 


*F_ 
wp_ 

wp_ 

«F_ 
*F_ 
wp_ 
wp_ 

WF_ 

wp_ 

*F_ 

«F_ 

wp_ 
wp_ 

«F_ 

wp_ 
wp_ 

WF_ 

«F_ 

*F_ 
WF_ 
«F_ 

«F_ 
wp_ 

«F_ 
wp_ 

*F_ 
wp_ 

wp_ 
"F_ 
«F_ 
«F_ 
«F_ 
«F_ 
wp_ 
wp_ 
«F_ 

WF_ 

WF_ 
wp_ 
*F_ 
"F_ 
*F_ 
*F_ 
«F_ 
que 


fuel 
fuel 
fuel 
fuel 
fuel 
fuel 
fuel 
fuel 
fuel 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 
ammo 

QUI  ' 

num  ' 
num  ' 
num  ' 
num  ' 
num  | 
num  ' 
num  ' 
num 
num 
num 
num 
num 
ry:- 


f 1,500,5000) . 
,f 2,800,4000). 
,f3,400,3000) . 

f2, 250, 1000'  . 

f4, 600, 5500). 

f 2,900,6000) . 

f5, 500, 3500) . 

f3, 350, 2000 ',  . 
"    3800) . 


3,4o) 

3,50;  . 

4,    5)  . 

3',20j  . 
2,    8 
3,28 
3,12 

3,22' 

4,  s;  . 

3,42    . 
3,18)  . 

2,    8j  . 

(WCIASS,WTYPE,FFTYPE,WFCAP,WACAP)  , 
800,WFCAP>=450, 
wp    ammo (WCLASS,WTYPE,LX,IY, WATYPE) . 
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42EMPIX  J 

ODTPOT    OP    PBOGRAM    2 


r    — 

_ 

EXECUTION  BEGINS 

V€S 

WCIASS 

= 

tk 

WTYPE 

= 

1 

WETYPE 

= 

f  1 

WECAP 

= 

500 

WACAP 

= 

5000 

LX 

s 

1 

IY 

= 

3 

WATYPE 

= 

a1 

BESAIISFYING 

GOAI 

V€S 

WCIASS 

= 

tk 

WTYPE 

= 

1 

WETYPE 

= 

f1 

WECAP 

= 

500 

WACAP 

= 

5000 

IX 

= 

1 

IY 

= 

3 

WATYPE 

= 

a2 

EESATISEYING 

GOAL.  .  . 

yes 

WCIASS 

= 

tk 

WTYPE 

= 

1 

WFTYPE 

= 

f  1 

WECAP 

= 

500 

WACAP 

= 

5000 

IX 

= 

2 

IY 

— 

3 

WATYPE 

= 

a1 

EESATISFYING 

GOAI 

V€S 

WCIASS 

s 

tk 

WTYPE 

= 

1 

WETYPE 

= 

f  1 

WECAP 

= 

50  0 

WACAP 

= 

5000 

IX 

= 

2 

IY 

s 

3 

WATYPE 

s 

a2 

EESATISFYIHG 

GOAI 

V€S 

FCIASS 

= 

tk 

WTYPE 

= 

1 

WETYPE 

= 

f  1 

WICAP 

= 

500 

WACAP 

= 

5000 

IX 

= 

5 

IY 

= 

3 

WATYPE 

• ■ 

a1 

142 


EFSATISFYLNG 

GOAL..-. 

V€S 

WCLASS 

= 

tk 

WTYPE 

= 

1 

WFTYPE 

= 

f  1 

WFCAP 

= 

500 

WACAP 

= 

5000 

LX 

= 

5 

LY 

= 

3 

WATYPE 

= 

a3 

RE2ATISFYING 

GOAL.. . . 

V€S 

WCXASS 

= 

f  ac 

WTYPE 

s 

1 

WFTYPE 

s 

f2 

WFCAP 

= 

800 

WACAP 

= 

4000 

LX 

= 

1 

LY 

= 

4 

WATYPE 

= 

a6 

RESATISFYLNG 

GOAL 

yes 

WCLASS 

= 

f  ac 

WTYPE 

= 

1 

WFTYPE 

= 

f2 

WFCAP 

= 

800 

WACAP 

= 

4000 

LX 

= 

1 

LY 

= 

4 

WATYPE 

= 

a3 

EE5ATISFYING 

GOAL 

yes 

WCLASS 

= 

f  ac 

WTYPE 

= 

1 

RETYPE 

= 

f2 

WFCAP 

= 

800 

WACAP 

= 

4000 

LX 

— 

5 

LY 

= 

2 

WATYPE 

= 

a6 

RESATLSEYLNG 

GOAL 

yes 

WCLASS 

= 

f  ac 

WTYPE 

= 

1 

WFTYPE 

= 

f2 

WFCAP 

= 

800 

WACAP 

= 

4000 

LX 

= 

5 

LI 

= 

2 

WATYPE 

= 

a3 



» 

14  3 


RESATISFYING 

GOAL.  .. 

i 

V€S 

WCLASS 

= 

tk 

WTYPE 

s 

2 

WFTYPE 

s 

f4 

WFCAP 

= 

600 

WACAP 

= 

5500 

LX 

= 

3 

LY 

= 

3 

WATYPE 

= 

a1 

RESATISFYING 

GOAL..  .  . 

V€S 

WCLASS 

= 

tk 

WTYPE 

s 

2 

WFTYPE 

— 

f4 

WFCAP 

ss 

600 

WACAP 

= 

5500 

LX 

= 

3 

LY 

s 

3 

WATYPE 

= 

a3 

RESATISFYING 

GOAL 

V€S 

WCLASS 

=: 

tk 

WTYPE 

= 

2 

WFTYPE 

= 

fa 

WFCAP 

s 

600 

WACAP 

= 

5500 

LX 

= 

2 

LY 

s 

3 

WATYPE 

= 

a1 

RESATISFYING 

GOAL..  .  . 

yes 

WCLASS 

= 

atgm 

WTYPE 

= 

2 

WFTYPE 

= 

f5 

WFCAP 

— 

500 

WACAP 

s 

3500 

LX 

= 

3 

LY 

= 

3 

WATYPE 

3S 

a5 

RESATISFYING 

GOAL 

yes 

WCLASS 

= 

atgm 

WTYPE 

= 

3 

WFTYPE 

= 

f6 

WECAP 

= 

450 

WACAP 

= 

3800 

LX 

= 

5 

LY 

= 

3 

WATYPE 

= 

aU 

RESATISFYING 

GOAI 

DC 

EXECDTICN  ENDS 

!  . 
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SAMPLE    PEOGEAM    3 


wp_f 
wp_f 
wp_f 
wp_f 
wp_f 
wp_f 
wp_f 
wp_f 
wp_f 
wp_a 
wp_a 
vp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_D 
wp_n 
wp_n 
wp_n 
wp_n 
wp_n 
wp_c 
wp_n 
wp_n 
wp_n 
wp_n 
wp_n 
wp_n 
quer 


uel(tk 

uel 
uel 


fac 
atgm 

uel  (helo 

uel  (tk 
'fac 
atgm 
helo 
atgm 
tk 
tk 


uel 
uel 
uel 
uel 
mmo 
mmo 


mmo  i'tk 


mmo 
mmo 
mmo 
mmo 
mmo 
mmo 
mmo 
mmo 


.o 

lO  I 


Em 

mm 

mmo 

mmo 

mmo 

mmo 

mmo 

mmo  (_ 

mmo  |tk 

mmo (tk 

um  (tk 

um  [tk 

um  i'f  ac 

um 

um 

um 

um 

um 

um 


tk 

fac 

fac 

atgm 

helo 

helo 

tk 

tk 


mmo (helo 
helo 
atgm 
fac 
tk 
tk 

atgm 
fac 
fac 


atgm 

helo 

tk 

helo 

atgm 

fac 
um  (tk 
um  (atgm 
um  (fac 
um (tk      ,  i. 
v:-wp    fuel 

WFCAP<= 

WACAP<= 

wp_ammo 


f1# 

f2, 

f3j 

f2, 

f«# 
±2. 

|3: 

1 

2 
2 
1 
1 

1 
2 
2 
3 
3 
3 
3 
3 
3 
2 
5 
5 
5 
5 
5 


i 

■:: 


5r 

i' 
\- 

3 

I 

(fac 
900. 
550C 
(fac 


500,5000 

800.-4000 

400,3000) . 

250,1000* 

600,5500 

900,6000 

500,3500 

350,2000 

450,3800 

,a2 

f*1 

,a2 

ra6 
,a3  i 
Ja4' 
Ia4'i 

,a1 

'al 

,a6 

,a3 

•*l 
,a6 

,a1 

,a3 

#a4, 

jt! 

,a1 
Ja3 

40" 

50] 

5< 

20; 

8( 
28 
12; 
22 

8 

42 
18 

8 

48' 

,WTYPE,WETYPE,WFCAP,WACAP) 
WFCAP>=800. 
,TCACAP>=4000, 
,WTYPE,LX,LY,WATYPE) . 
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APPENDIX  L 
OUTPUT  OF  PROGRAM  3 


EXECUTION 

BEGINS 

yes 

WTYPE 

= 

1 

WFTYPE 

= 

f2 

WFCAP 

= 

800 

WACAP 

= 

4000 

LX 

s 

1 

LY 

= 

4 

WATYPE 

= 

a6 

EESAIISFYING 

GOAL.  .  . 

V€S 

WTYPE 

= 

1 

WFTYPE 

= 

f2 

WFCAP 

s 

800 

WACAP 

= 

4000 

LX 

= 

1 

IY 

= 

4 

WATYPE 

ss 

a3 

EESAIISFYING 

GOAI 

y  €S 

WTYPE 

= 

1 

WFTYPE 

= 

f2 

WFCAP 

= 

800 

WACAP 

= 

4000 

LX 

=s 

5 

LY 

= 

2 

WATYPE 

= 

a6 

EESAIISFYING 

GOAI 

V€S 

WTYPE 

= 

1 

WFTYPE 

= 

f2 

WFCAP 

= 

800 

WACAP 

= 

4000 

LX 

= 

5 

LY 

= 

2 

WATYPE 

= 

a3 

EESAIISFYING 

GOAI 

DC 

EXECUTION 

ENDS 

._  . 

• 
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SAMPLE    PEOGRAM    4 


wp_f 
wp_f 

¥p_f 

wp_f 
wp_f 
wp_f 
wp_f 
wp_f 
wp_f 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp__a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_a 
wp_n 
wp_n 
wp_n 
wp_n 
wp_n 
wp_r. 
wp_n 
wp_n 
wp_n 
wp_n 
wp_n 
wp_n 
wp_n 
guer 


atgm, 

helo, 

atgm, 

tk 

tk 

tk 

tk 


uel  (tk 
uel  (fac 

uel  I'atgm, 

uel  (helo, 

uel  (tk 

uel  (fac 

uel 

uel 

uel 

mmo 

ir  mo 

mmo  ( 

mmo 

mmo  [fac 

mmo  i'fac 

mmo  I'atgm, 

mmo  (helo, 

mmo  <|helo 

mmo   tk 

mmo   tk 

mmo  'helo, 

mmo  (helo 
atgm 
fac 
tk 
tk 

''atgm 
fac 
fac 

mmo  (tk 

mmo  (tk 


mmo 
mmo 
mmo 
mmo 
mmo 
mmo 
mmo 


,500, 
800, 
,400, 
,250, 
,600, 
,900, 
,500' 
,350, 
,450, 


5000) 
4000' 
3000'. 
1  000'. 

5500' 
6000" 
3500' 
2000' 
3800' 


~i* 


atgm 
»fac 


wp_ami 
wp_nui 


18    . 
8)  . 

48). 

,AS5,WTYPI,LX,LY,tfATYPE) 
SS, VJTYPE#LX,LY,WNU!1)  . 
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APPENDIX  H 
OUTPUT  OF  EBOGRAM  4 


r 

. 

EXECUTION 

BEGINS 

V€S 

WCIASS 

= 

tk 

WTYPE 

s 

1 

IX 

= 

1 

IY 

= 

3 

WATYPE 

= 

a1 

WNUJi 

ss 

40 

RESATISFYI 

NG 

GOAL... 

V€S 

WCLASS 

= 

tk 

WTYPE 

= 

1 

IX 

= 

1 

LY 

= 

3 

WATYPE 

= 

a2 

WHOM 

= 

40 

RESATISFYING 

GOAI 

V€S 

WCLASS 

= 

tk 

WTYPE 

= 

1 

LX 

= 

2 

LY 

= 

3 

WATYPE 

= 

a1 

WNUM 

= 

50 

EESATISFYING 

GOAL... 

yes 

WCLASS 

= 

tk 

WTYPE 

= 

1 

LX 

SS 

2 

LY 

SS 

3 

WATYPE 

= 

a2 

SKOH 

= 

50 

RESA1ISFYING 

GOAL 

yes 

WCLASS 

= 

f  ac 

WTYPE 

= 

1 

LX 

= 

1 

LY 

= 

4 

WATYPE 

= 

a6 

WNOM 

= 

5 

RESATISFYING 

GOAL 

y  €s 

WCLASS 

= 

f  ac 

W1YPE 

= 

1 

LX 

= 

1 

LY 

ss 

4 

WATYPE 

= 

a3 

WKUM 

= 

5 
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— 

—  —   ■ -  ■ ■  'i 

RESATISFYING 

GOAL... 

yes 

WCIASS 

3 

atgm 

WTYPE 

= 

1 

IX 

= 

1 

IY 

s 

3 

WATYPE 

= 

a4 

WNUM 

= 

20 

RESATISFYING 

GOAI 

V€S 

WCIASS 

= 

helo 

WTYPE 

= 

1 

IX 

= 

2 

IY 

= 

2 

WATYPE 

3 

a4 

HKUM 

3 

8 

RESATISFYING 

GOAL.. .. 

V€S 

WCIASS 

= 

helo 

WTYPE 

= 

1 

IX 

= 

2 

LY 

= 

2 

WATYPE 

= 

a3 

WNUM 

= 

8 

RESATISFYING 

GOAI 

V€S 

WCIASS 

= 

tk 

WTYPE 

= 

2 

IX 

= 

3 

LY 

= 

3 

WATYPE 

3 

a1 

SMUH 

= 

28 

RESATISFYING 

GOAI 

V€S 

WCIASS 

= 

tk 

WTYPE 

= 

2 

IX 

= 

3 

IY 

3 

3 

WATYPE 

= 

a3 

WNUM 

= 

28 

BESATISEYING 

GOAI 

yes 

WCIASS 

= 

helo 

WTYPE 

= 

2 

IX 

= 

3 

IY 

= 

3 

WATYPE 

= 

a6 

WKOH 

■™ 

12 
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EESATISFYING 

GOAL.. 

V€S 

WCLASS 

s 

helo 

WTYPE 

= 

2 

LX 

= 

3 

LY 

= 

3 

WATYPE 

= 

a3 

WNUM 

= 

12 

EESATISFYING 

GOAL 

V€S 

WCLASS 

= 

atgm 

WTYPE 

= 

2 

LX 

= 

3 

LY 

s 

3 

WATYPE 

= 

a5 

TTNOM 

= 

22 

EESATISFYING 

GOAL.. . . 

yes 

WCLASS 

= 

f  ac 

WTYPE 

= 

2 

LX 

s 

3 

LY 

= 

4 

WATYPE 

= 

a6 

WKUM 

= 

8 

EESATISFYING 

GOAL 

V€S 

WCLASS 

= 

tk 

WTYPE 

= 

2 

LX 

= 

2 

LY 

= 

3 

WATYPE 

= 

a1 

WHOM 

= 

42 

EESATISFYING 

GOAI 

V€S 

WCLASS 

= 

atgm 

WTYPE 

= 

3 

LX 

= 

5 

LY 

= 

3 

WATYPE 

= 

a4 

WKUM 

= 

18 

EESATISFYING 

GOAI 

yes 

WCLASS 

= 

f  ac 

WTYPE 

= 

1 

LX 

= 

5 

LY 

= 

2 

WATYPE 

= 

a6 

WNDM 

zz 

8 
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- 

EESATISFYING 

GOAL.  .  . 

yes 

WCIASS 

s 

f  ac 

WTYPE 

= 

1 

IX 

= 

5 

LI 

= 

2 

WATYPE 

= 

a3 

WNUM 

= 

8 

BESATISFYING 

GOAI 

V€S 

WCIASS 

= 

tk 

WTYPE 

= 

1 

IX 

s 

5 

IY 

= 

3 

T7ATYPE 

= 

a1 

tfflUM 

= 

43 

RESA1ISFYING 

GOAI 

7€S 

WCIASS 

= 

tk 

WTYPE 

= 

1 

IX 

= 

5 

IY 

= 

3 

WATYPE 

= 

a3 

WNUM 

= 

48 

BESATISFYING 

GOAI 

nc 

EXECUTION  ENDS 
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APPENDIX   0 
SAMPLE    PEOGBAM    5 


wp_f uel 
wp_f uel 
wp_f uel 
vp_f uel 
wp_fuel 
wp_f uel 
wp_f uel 
wp_fuel 
wp_fuel 
wp_ammo 
wp_aniino 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_amnio 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_ammo 
wp_num i 
wp_num 
wp_num 
wp_num 
wp_num  | 
wp_num 
wp_num  i1 
wp_num 
wp_num  ' 
wp_num  ' 
wp_num  i'< 
wp_num  ': 
»p_Rum  (• 

guer y : - wp_a mmb ( W 
wp_num  ' 


,5000 

,4000 

,3000, 

,1000'i 

,5500' 

,6000' 

,3500' 

,2000 i 

,3800" 


IwTYPE.LX, LY.WATYPE) , 
WTYPE,LX,LY,f?NUM) . 
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4£ONDIX   P 
ODTPOT   OF    PROGRAM   5 


— 

_   

EXECUTION  BEGINS 

V€S 

HCIASS 

= 

tk 

W1YPE 

= 

1 

LX 

= 

1 

LY 

= 

3 

WATYPE 

= 

a1 

WNUM 

= 

40 

RESATISFYING 

GOAL... 

V€S 

WCIASS 

= 

tk 

WTYPE 

= 

1 

LX 

= 

1 

LY 

= 

3 

WATYPE 

= 

a2 

WKUM 

= 

40 

RESATISFYING 

GOAL.. .. 

yes 

WCLASS 

= 

tk 

KTYPE 

= 

1 

LX 

= 

2 

LY 

= 

3 

WATYPE 

= 

a1 

WNUM 

= 

50 

RESATISFYING 

GOAL 

V€S 

WCIASS 

= 

tk 

WTYPE 

= 

1 

LX 

= 

2 

LY 

= 

3 

WATYPE 

= 

a2 

WKUM 

= 

50 

RESATISFYING 

GOAI 

yes 

WCLASS 

= 

f  ac 

KTYPE 

= 

1 

LX 
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